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PREFACE 



This book has been written in a manner that resists 
non-sequential access methods* In other words F it is 
HIGHLY recommended that the reader start with the 
Introduction and continue on through the book. After the 

first reading^ the Table of Contents can double as an 
lndex r which was left out to discourage people from leaping 
into strange waters. 



0000 0111 



INTRODUCTION 



Since you are reading this book, you are most likely the owner of 
a TRS-80 microcomputer. In spite of the disdain shown for your beast 
by those who don't know any better, you have probably found that it is 
generally adequate for most of your personal computing needs. 
Unfortunately, due to either disinterest or lack of knowledge, various 
organizations which should be making essential information available to 
you are failing to do so. This book is a response to the obvious 
desire of you — the owner, operator, and programmer of a TRS-80— to know 
as much about this machine as possible. It is our intention to make 
available to you information not readily obtainable from any other 
source. 

This is the first of a three volume set that will detail the 
operation of the Level II ROM. Explicit descriptions will be given so 
that ROM routines, accessable from assembly language, may be used. The 
series will explore Level II BASIC at a depth that will be satisfactory 
for even the most skilled programmer and yet will still prove to be 
useful to the novice programmer with only minimal machine language 
experience. 

This first volume describes in detail how numerical data is stored 
and manipulated in memory. In addition, it provides the complete 
assembly language interfacing procedures for all mathematical functions 
including addition, subtraction, multiplication, and division of 
integer, single precision, and double precision values. Also, the code 
necessary for accessing the logarithmic, trigonometric, and comparison 
routines is provided along with examples on how to manipulate data in 
memory. Although Input/Output will be covered in Volume II, complete 
instructions are provided for inputting and outputting numerical data. 
In Appendix A, the user will find a complete list of entry points and 
data areas used by Level II, including some areas used by DOS and Disk 
BASIC. This list provides a quick reference to all routines discussed 
in this volume and in the ones to follow. 

The wealth of information that one will find in this book is 
substantial „ Due to the amount of material available, you will find 
the next two volumes equally as informative. Topics will include data 
and tape formats, I/O routines, BASIC program storage, the editor, the 
parser, error-handler, and much, much more. Please refer to the coupon 
in the back of this book for a discount on the next volume in the 
series. 

We welcome any comments or suggestions. Please feel free to write 
us. 



Thank you and good luck, 

Insiders Software Consultants, Inc. 
PO Box 2441 , 
Springfield, VA 22152 
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CHAPTER Is FORMATS AND ACCUMULATORS 



In order to fully understand the operation of the 
mathematics routines, one must have a basic understanding 
of the internal format of numerical data. The TRS-80 
supports three types of numerical variables? integer, 
single precision (also known as "floating-point"), and 
double precision* In order to manipulate the different 
values, Level II utilizes various memory accumulators in 
low RAM memory. In the following sections, the format of 
these three types of values will be discussed along with 
the format of the memory accumulators* 

Data in the form of integers, single precision, and 
double precision real numbers are stored in RAM memory,, 
This data is typically stored in locations which are 
associated with variable names that are used in a BASIC 
program* Level II creates and maintains two tables of 
variable names and their associated values. The two tables 
of variables immediately follow the end of the BASIC 
program in memory. It is for this reason that whenever the 
program is modified (after a BREAK for example) , all 
variable values are cleared and the pointers are reset. 

The first variable area is for simple (i.e., 
non-array) variables. Variables for each of the four data 
types (strings included) can be stored in this region* The 
beginning of the simple variable storage area is indicated 
by a two-byte pointer, SCLERS, that is stored at locations 
40F9H and 40FAH. Simple variables are placed in this region 
as they are encountered during program execution. 
Therefore, since the search through this table is done 
sequentially, all frequently used variables should be 
initialized at the beginning of the program before any 
program statements but following the CLEAR and DEF 
commands. This step is very important when one uses long 
programs with many variables. Early definition of variables 
used in FOR/NEXT loops first is very worthwhile,, 

The entry for each different type of variable follows 
a set format. The first byte of each entry is for the type 
of variable; two (2) for integer, three (3) for string, 
four (4) for single precision, and eight (8) for double 
precisione The next two bytes consist of the two 
significant characters in the variable name stored in 
reverse order* Thus, the variable name "AB" would be stored 
in the RAM variable table as "BA " However, in the case of 
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single character variable names, the first byte will be 
zero (00) instead of being stored as a space* Numeric data 
folows the name, while string data is pointed to by an 
address following the name. The code representing the 
variable type also reflects the length of the following 
data* Accordingly, each integer will have two bytes, 
strings-three, single precision-four, and double precision 
will have eight. 

The two bytes of the integer are stored, as is 
standard, least significant byte (LSB) first, followed by 
the most significant byte (MSB) . Integers in the TRS-80 are 
signed, meaning that they are either positive or negative. 
The system used to represent integers is called "two B s 
complement." In this representation, the most significant 
bit of the sixteen bits used for integer storage is the 
sign bit* The sign bit is set (1) for negative numbers and 
is zero (0) for positive values. Positive values are stored 
in the low order fifteen bits as a standard binary value. 
Therefore, a value of +3 would be represented as 00000000 
00000101. 

Negative numbers, on the other hand, are represented 
as if the corresponding positive value including the sign 

(zero for positive) had been complemented and then one was 
added to the result e Complementing is the process of 
changing each of the sixteen bits into its opposite; zero 
to one, one to zero. If the above process is performed 
twice on any sixteen bit value, the original number will 
always be returned* Any negative value number can be 
decoded by taking its two's complement and placing a minus 
sign (-) in front of it. Thus, the value 1234 in decimal 
will be represented as the sixteen bit value 00000100 
11010010 (04D2H) and the value -1234 as 11111011 00101110 

(FB2EH) . 

As stated previously, integer values are stored in 
memory in two contiguous bytes* The least significant byte 
(rightmost in the above examples) is stored in the lowest 
memory location and the most significant byte in the next 
higher memory location,, Thus, the value for 1234 which in 
hex is 04D2H would be stored D2H Q4H* 

Using two s s complement, the largest integer value that 
can be stored in memory is 32,767 (7FFFH) or, in binary, 
01111111 11111111 . The smallest negative value that can be 
represented using integers is -32,768 (8000H) or, in 
binary, 10000000 OOOOOOOOo Values that do not fall within 
the -32,768 to +32,767 range must be represented as either 

single precision or double precision number 
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Single precision numbers are handled in a totally 
different manner. Most readers should be familiar with 
scientific notation, a technique for representing a number 
as a real number between one and ten (called the mantissa) 
and an integer that represents the power of ten the real 
number must be multiplied by to produce the original value. 
As an example, the number 378.662 would be represented as 
3.78662 x 10**2 (the two asterisks (**) meaning "raised to 
the power of"). In the TRS-80 and most computers, this 
value would be printed as 3.78662E+02, which will be the 
notation followed throughout the rest of this text. 

A modification of this process requires that the 
mantissa always be less than one but greater than or equal 
to one-tenth (1 > X => .1) . Using this procedure called 
normalization, the above example would be represented as 
.378662E+03. 

Similarly, values can be represented with a binary 
mantissa and exponent (which now represents a power of two 
by which the binary mantissa must be multiplied in order to 
produce the original value). In this case, bits to the 
right of the binary point represent increasingly negative 
powers of two. Thus, 1/8 would be represented as .001 
[1/(2**3)]. Examples ares 



.D 1Q 
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.0625 10 = .0001 2 (2~ 4 ) 



The representation of floating point numbers in the TRS-80 
as well as other computers uses this concept. 

In the TRS-80, four bytes are used to represent single 
precision (6 significant digits) and eight bytes for double 
precision (16 significant digits) . In both cases, one byte 
is used to hold the exponent and the remaining three or 
seven (depending on the type of value) is used to hold the 
mantissa. 
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The exponent is stored in "excess 128" notation* This 

means that an exponent of zero (2**0 = 1) is represented by 

128 (80H) , positive exponents are denoted by values of 

greater than 128 , and negative exponents by values of less 

than 128. Thus* by subtracting 128 from the value, the true 
exponent is obtained. 

The mantissa of a floating-point number is always 
normalized, which when working in base 10 is within the 
range 10**0>X>=10** (-1) . However, theTRS-80 stores the 
values in BINARY normalized form which means the values lie 
within the range [2**0>X>=2**-1] . A little simple 
arithmetic will show that this range, base 10, is [1>X>.5]. 
All this means is that there will always be a one (1) 
immediately to the right of the decimal point when the 
binary normalized mantissa is shown in its binary form* 

As an example, the number 72 .0 decimal when converted 
to hex (base 16) is 48EL This value in binary is 01001000* 
Now, let's normalize this binary number, how about 
OolOOlOOO? We have effectively moved the binary point 
seven places to the left, or divided it by 2**7. Therefore, 
to produce the original value from 0^1001000, we must 
multiply this value by 2**7. Hence, the representation for 
72 decimal in binary normalized form would bes 

OolOOlOOO x 2 7 

Now that we know what the external representation of 
this value is, we must now convert it to the TRS-80 8 s 
internal representation. 

The first point here is that, as stated before, the 
exponent is stored in "excess 128 (80H)" notation* 
Therefore, our positive exponent of seven would be 
converted to 87H by adding 80H (effectively setting the 
high order bit) . Now that the exponent problem has been 
solved, we will move to the mantissa.... 

Here, one may get a bit confused. First of all, the 
mantissa will be stored as three bytes for single precision 
and seven bytes for double precision. Here is how our 
normalized mantissa would be represented using the full 
three bytes of a single precision values 

.10010000 00000000 00000000 
90H 00H 00H 
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That's fairly obvious? however, this does not provide 
for a sign bit, which of course is needed. The solution is 
a very good one. First of all, as you recall, the bit 
immediately to the right of the binary point is always one. 
Therefore, there is no need to maintain that bit in memory. 
The bit can then be used as a sign bit, indicating a 
negative value when set (1) and a positive value when reset 
(0) . Using this procedure, we maintain our original 24 data 
bits, while also providing for the sign! Thus the MSB 
would be changed from 10010000 to 00010000 when then bit 7 
is used as the sign bit. 

One more detail and we will be able to correctly show 
the representation of the decimal number 72,0 as it is kept 
in the TRS-80, One must note that the four bytes of the 
single precision value are stored^ 

LSB LSB MSB EXP 

Thus, the three mantissa bytes must be placed in reverse 
order, from the least significant to the most significant, 

LSB LSB MSB 
00000000 00000000 00010000 (note high order 

00H 00H 10H bit of 3rd byte 

is sign bit, de- 
noting a positive 
value) 

Now we have all the information. Here is the number as 
it would appear in memory : 

LSB LSB MSB EXP 
00000000 00000000 00010000 10000111 
00H 00H 10H 87H 

Before we continue, a few more examples might prove 
useful to firm up our understanding of the way in which the 
TRS-80 handles single and double precision values. 

First, we shall examine the number 73,75, This value 
when converted to binary would bes 

73,75 = 01001001,11000000 

Then, normalize this value, 

,100100111000000 X 2 7 
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Convert this value to hex, making the high order bit 
into a sign bits 

MSB LSB LSB EXP 
00010011 10000000 00000000 10000111 
13H 80H 00H 87H 

The last thing we must do is reverse the order of the 
bytes of the mantissa and we are done: 

LSB LSB MSB EXP 
00H 80H 13H 87H 

One more value? this one negative, should be done* For 
ease of explanation, let's use -73*75* In binary, we haves 

-73.75 = -01001001.11000000 

Placing this value, normalized in the same manner as 
is +73*75, into four bytes with the high order bit as the 
sign bit, one gets: 

MSB LSB LSB EXP 
10010011 10000000 00000000 10000111 
93H 80H 00H 87H 

Reversing the order, one gets: 

LSB LSB MSB EXP 
00H 80H 93H 87H 

This corresponds the the format of this value of 
-73*75 in the TRS-8Q tables* 



Now that single precision values have been discussed 
fully, it is almost trivial to explain double precision 
representation* In fact, the only difference is that double 
precision values use seven bytes of mantissa instead of 
three, thus utilizing 56 data bits instead of the 24 used 
in single precision representation* Hence, double precision 
values are stored: 

LSB LSB LSB LSB LSB LSB MSB EXP 
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As an example, we will use 73.75 again. Its double 
precision equivalent would be; 



MSB 


LSB 


LSB 


LSB 


LSB 


LSB 


LSB 


EXP 


13H 


80H 


00H 


00H 


00H 


00H 


00H 


87H 



Stored in memory, it would be represented as: 



LSB 


LSB 


LSB 


LSB 


LSB 


LSB 


MSB 


EXP 


00H 


00H 


00H 


00H 


00H 


80H 


13H 


87H 
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MEMORY ACCUMULATORS 



To manipulate the various types of data, TRS-80 BASIC 
utilizes several memory accumulators* In fact, almost all 
of the the mathematical functions utilize one or more of 
these areas. In the next sections of this volume, it is 
assumed that the terms that will be described in the next 
few pages will be fully understood by the user. 

The accumulators that are used for mathematical 
manipulation are located in low RAM* The areas consist of 
eight bytes, although depending on the type of variable, 
not all of the eight bytes need to be utilizedo 

Each accumulator is organized in much the same format 
as an area used for the storage of a double precision 
variable,, Let's take the most often utilized accumulator 
and use it as a model* 

All of the memory accumulators are referred to as 
Floating Point Accumulators (FPA f s), even though they are 
also used in conjunction with integer math. The first 
accumulator is named FPAl . It resides from 411DH to 4122H* 
Associated with this accumulator is a type flag (TYPFLG at 
40AFH) , which stores the type of variable currently present 
in the accumulator (remember, 8=double, 4=single, 
2=integer) s The format of this accumulator is as follows? 



411DH 


411EH 


411FH 


4120H 


4121H 


4122H 


4123H 


4124H 


LoB 


LSB 


LSB 


LSB 


LSB 


LSB 


MSB 


EXP 


(DBL 


(DBL 


(DBL 


(DBL 


(SNG 


(SNG 


(SNG 




Only) 


Only) 


Only) 


Only) 


DBL) 


DBL) 


DBL) 





The above format holds true for single and double 
precision values. However, integers are in this formats 



4121H 
LSB 



4122H 
MSB 



The next floating point accumulator is called FPA2 . It 
is located at addresses 4127H - 412EH. Its type flag 
(TYPFL2) is stored at 40B0H* The manner in which the 
values are stored is as follows? 
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4127H 4128H 4129H 412AH 412BH 412CH 412DH 412EH 

LSB LSB LSB LSB LSB LSB MSB EXP 

(DBL (DBL (DBL (DBL (SNG (SNG (SNG 

Only) Only) Only) Only) DBL) DBL) DBL) 



The last memory accumulator (FPA3) is located at 
addresses 414AH - 4151H. This accumulator is used by the 
single precision multiplication and double precision 
division routines. There is no need for direct user 
manipulation of this area, but the assembly language 
programmer should be aware of its use* 

Remember that the majority of the math routines must 
be informed as to the type of data being manipulated* This 
can be accomplished by setting the type flags directly or 
through the use of the ROM calls that will be described in 
the next chapter. For further information on the type flag 
one can refer to? 

TRS-80 Level II User's Manual . Ch. 8, pp. 8-9* 



Another type of accumulator utilized by the Level II 
ROM is a Register Accumulator . Various routines, when 
dealing with single precision data values, use CPU 
registers B f C, D f and E to hold the 4-byte value and 
operate on it. The term "Register Floating Point 
Accumulator (RFPA) " will be used to refer to these 
registers collectively . They are utilized as follows? 



Register E: Contains the Least Significant Byte of 

the mantissa of the Single Precision 
value. 

Register Ds Contains the next, more significant 

byte of the mantissa. 

Register C% Contains the Most Significant Byte of 

the mantissa. 

Register Bs Contains the Exponent of the Single 

Precision Value to be manipulated. 



Since the registers, when listed in the same order of 
significance as the value would be represented in memory, 
would be listed "EDCB," the RFPA may be referenced at 
times by this mnemonic. 
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CHAPTER 2 s DATA MANIPULATION 



As stated earlier, the majority of the math routines 
must be informed as to the type of data value being 
processed* Since the Floating Point Accumulators are used 
to hold integer*, single precision, and double precision 
values, some method must be employed to specify the type 
currently contained in FPAl , the main accumulator. The 
codes for each type are as follows: 

2 - Integer variable 

3 - String variable 

4 - Single Precision variable 
8 - Double Precision variable 

One of the above values must be stored in TYPFLG ? the 
type flag for FPAl located at 40AFH* The TYPFLG can be set 
to any non-string type through the use of one of the 
following calls: 



SETINT 


CALL 


0A9DH 


SETSNG 


CALL 


OAEFH 


SETDBL 


CALL 


OAECH 



;Set TYPFLG for Integer 
;Set TYPFLG for Single Prec 
I Set TYPFLG for Double Prec 



The type of the contents of FPAl can easily be 
determined through the use of the routine at address 25D9H« 
The routine sets various flags (conditions the flag 
register, F) depending on the value of TYPFLG. This routine 
is the one that is ultimately executed through the use of 
the RST 32, which saves two bytes in a program® The 
following code sequence will determine the variable type 
and branch to the appropriate processing routines 



TSTTYP 


RST 


32 




JP 


Z, STRING 




JP 


M,INTGR 




JP 


PO,SNG 




JP 


NC,DBL 



; Test TYPFLG 
jString Variable 
I Integer Variable 
fSingle Precision Var* 
^Double Precision Var. 

(Note: to use RST 32, RAM addresses 4009H - 400BH must not 
have been changed from their original initilization. If 
there is a possibility that they will be, replace "RST 32" 
with "CALL 25D9H" in the above example.) 
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ERROR RECOVERY ROUTINE 

One problem faced by those who have tried to interface 

with the ROM routines in the past is the fact that if an 
error occurs,, any error? control is given to the BASIC 

interpreter, thousands of bytes away from the machine 

language program that was executing. For this reason, an 

error recovery routine had to be developed so that control 

would pass smoothly back to the calling routine for 
processing of the error. 

Several conditions can cause an error in Level II when 
working with the math routines. One example is if the 
result of the addition, subtraction, multiplication, or 
division overflows the limits of the variable type. Errors 
can also occur when the RND function is called with a 
negative number as a parameter or with a number that 
exceeds the positive upper limit of an integer (32,767) . 
Other problem areas include (but are by no means limited 
to) s division by zero, undefined trigonometric call, type 
mis-matches, and other illegal function calls. 

The following initialization routine should be placed 
at the beginning of the program, before any of the ROM 

routines are used? 



TRAP 



LD 


HL, STACK 


LD 


(40E8H) ,HL 


LD 


HL,41A6H 


LD 


(HL) ,0C3H 


INC 


HL 


LD 


DE , RCVRY 


LD 


(HL) ,E 


INC 


HL 


LD 


(HL) ,D 


LD 


A,0C9H 


LD 


(41BEH) ,A 


LD 


(41C1H) ,A 


LD 


(41D0H) ,A 


LD 


(40F2H) ,A 


XOR 


A 


LD 


(409CH) ,A 



;Point to program's STACK 
;Replace Stack pointer in 
; error trap procedure. 
;Init trap vector 
I to JP to Recovery rout. 

;Point to recovery rout. 



;Set-up RET in various 
I RAM vectors 



iThis address <> zero! 
?Clear A register 
iThis address = zero 
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The trap initialization routine is now complete. The 
following routine is executed when an error occurs in the 
ROM. It may be placed anywhere in the assembly language 
code. 



RCVRY 



LD 


fa XT p 


LD 


r\ ^ £j 


SRA 




INC 


A 



;Do error testing here** 



DATA CONVERSION 



; Restore prog's stack 
?Pick-up Error number ptr 
^Divide error number by 2 
^Accumulator now contains 
; an error number which 
; matches on in Table B-l 
; of the Level II Manual 



In order to convert data values, it is 
initialize the addresses from 4080H - 408DH 
contain the following values? 



necessary to 
so that they 



X'4080« 
X'4084" 
X f 4088' 
XM08C* 



D6 00 6F 7C 
DE 00 67 78 
DE 00 47 3E 
00 C9 



(This memory area is configured by the Level II initial- 
ization code and is used by the single precision division 
routine. ) 

The three-byte region at 4090H - 4092H must also be 

initialized if random number generation will be requested. 

The field contains the multiplicative mantissa constant 

used in the random number generator. The addresses are 
intialized as follows? 

X'4090' = 40 
X'4091' = E6 
X'4092' = 4D 

These intialization areas have been listed together 
since they can BOTH be set-up correctly through the 
execution of the following code? 
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INITRM LD DE.40 80H ; Point to RAM area 

LD HL,18F7H ;Point to data in ROM 

LD BC f 39 ?Bytes to move 

LDIR ; Initialize RAM 



Data values in FPAl can be converted from one TYPE to 
another , provided the resulting value does not overflow the 
requested type. The TYPFLG must have been previously set to 
the current type or the results will be unpredictable* This 
flag will be automatically revised upon completion of the 
conversion to the new type* 



CINT CALL 0A7FH 
CSNG CALL 0AB1H 
CDBL CALL OADBH 



;Convert FPAl to Integer 
^Convert FPAl to Single 
iConvert FPAl to Double 



These routines are general purpose, converting any 
type to the designated one* However , if the type is known, 
the routines below may be called to change the type. They 
provide slightly faster execution by skipping unneeded 
processing. 



SNGINT 


CALL 


OACCH 


DBLSNG 


CALL 


0AB9H 


SNGDBL 


CALL 


0AE3H 



; FPAl. from Integer to SNG 
;FPA1 from DBL to SNG 
;FPA1 from SNG to DBL 



Also„ if a value is stored at a different location in 
memory , it also can be converted by first setting TYPFLG 
and then calling the following routine: 



HLSNG 



LD HL, VALUE ; Point HL to start of val 
CALL OACFH fConvert (HL) to SNG 



** WARNING ** If the above routines are called with the 
type flag (TYPFLG) set for an string value (3) , an error 
will result. If the error recovery routine has not been 
implemented, control will be given to the BASIC inter- 
preter . 
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In order to effectively use the math routines? it will 
be necessary to shift data in and out of the accumulators, 
registers, and user buffer regions. The routines described 
in the following paragraphs should be used for this 
purpose. 

The routine at 09A4H will move the single precision 
value from FPA1 to the stack. The routine pops the return 
address off the stack, pushes the value onto the stack, 
replaces the return address, then returns to the calling 
routine. 



STKFP1 CALL 9A4H 



;Put SNG in FPA1 onto stack 



The stacked value can be recovered into the RFPA 
through the following sequences 



POPRFP POP BC 
POP DE 



^Recover 4123H-4124H 
.•Recover 4121H-4122H 



If the value in the RFPA is to be placed back into 
FPA1 , call this routines 



SNGFPA CALL 9B4H 



; RFPA into FPAl 



The next routine copies four 
pointed to by the register pair 
The first byte is placed at 4121H, 
third at 4123H, and the fourth 
EXP) . 



(4) bytes from the region 

HL and moves it to FPAl. 

the second at 4122H, the 

at 4124H (LSB, LSB, MSB, 



HLFPAl 



CALL 



09B1H 



(HL) placed into FPAl 



To manipulate single precision values, the ROM at 
times will copy FPAl into the RFPA. This routine performs 
this function; 



LDFPA1 CALL 



9BFH 



; Load RFPA from FPAl 
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To eliminate the need of first moving a value from a 
buffer to FPAl and then loading it into the RFPA^ a single 
routine may be called. The first byte is placed in E, the 
second in D r the third in C r and the fourth in B: 



LDFPHL 



LD HL^BUFF ;Load beginning of buffer 

; containing value* 
CALL 9C2H ; (HL) to RFPA 



Once a routine has been called, one may want to 
transfer the resulting value in FPAl to a buffer so that 
another value can be manipulated* This is accomplished by 
this routines 



FPAMEM 



LD HL ? BUFF ?Load beginning of buffer 
CALL 09CBH ?FPA1 moved to (HL) 



The next two routines are used to transfer double and 
single precision values from one location to another. The 
number of bytes to be moved is based on the value of the 
TYPFLG (four or eight) . 



This routine transfers bytes from the 
to by HL to the one pointed to by DE* 



MOVTDE 



CALL 



09D2H 



buffer pointed 



?Move (HL) to (DE) 



The perform the exact opposite of the above call,, 
access the routine to move from buffer DE to buffer HL. 



MOVTHL 



CALL 



09D3H 



;Move (DE) to (HL) 



The last routine transfers either four or eight bytes 
from FPAl to FPA2 . However , the bytes transfered will begin 
at address 4127H which will not place them in the correct 
position for single precision values? but the transfer is 
correct for double precision values. Again,, the number of 
bytes to be transfered is based on TYPFLG. 



FP1FP2 



CALL 



09FCH 



;Move (FPAl) to (FPA2) 



2-6 



Before discussing the interfaces to the actual math 
routines in the next chapter, the methods for inputting and 
outputting numerical data in ASCII must be listed* 



ASCIJL_TO_BINARY 

The first task one must face is converting an ASCII 
buffer to its binary representation. The ROM provides a 
single routine to handle all of the I/O of this type. 
Fortunately, it is a very flexible routine, allowing the 
conversion of a wide variety of strings* This routine 
should be used to read in ASCII numbers and convert them to 
their binary equivalent for processing by the various math 
routines. To access this routine, perform the following; 

LD HL, BUFFER ;I/0 Buffer 
ASCBIN CALL 0E65H fConvert ASCII to binary 

; Default type = DBL 

The buffer should begin with the first character to be 
converted. All numeric specifications legal in BASIC are 
recognized here. Therefore, the buffer can begin with a 
plus (+} or minus (-) sign. The numeric part of the number 
can be integer or real (contain a decimal point) . It can 
also have scientific notation. The value can be followed 
by a TYPE specification (% = integer, ! = single precision, 
# = double precision) which will force the converted value 
to take on the specified type. 

The numeric value can also be followed by "E" for 
single precision scientific notation or "D" for double 
precision scientific notation, but DO NOT mix explicit type 
and exponent type* 

If the data value overflows the type specified, it 
will automatically be converted up to the minimum type 
necessary to contain the data value. If no type is 
specified, it will default to double precision. 

The last character in the buffer MUST be either a 
colon (s) or a hex zero (00) for proper conversion. 
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The binary result produced is placed in the floating 
point accumulator (FPAl) as follows: 



a. Integer result stored in addresses 4121H 
4122H (MSB) . The TYPFLG at 40AFH will be set 
denoting an integer. 



(LSB) and 
to X'02' 



b. Single precision result is stored in addresses 
4121H containing the least significant byte through 4124H 
containing the exponent., TYPFLG will be set to X'04' 
denoting a single precision value* 

c. Double precision result is placed in FPAl in 
addresses 411DH containing the LSB through 4124H containing 
the exponent . TYPFLG will be set to X'08 ! denoting a 
double precision value. 



Another manner to access the same conversion routine 
is provided which defaults to a integer value unless an 
overflow occurs. 



ASCINT 



LD HL^BUFFER fPoint to I/O buffer 

; value to convert 
CALL 0E6CH ;Convert ? Default type=INT 



BINARY TO ASCII 

Outputting of binary data can take on two forms, 
formatted and unformatted. There exists three calling 
routines, one for each type of variable* 

For each of the following routines, the data is placed 
unformatted in an I/O buffer beginning at 4130H. The last 
character in the buffer is followed by a hex zero (00) to 
mark the end. 



For integers, use this codes 





LD 


HL, VALUE 


SAVINT 


CALL 


0A9AH 


BINASC 


CALL 


OFBDH 



; VALUE = Value to convert 
I Save integer to FPAl 
fConvert to ASCII 
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For single precision* the following code is useds 



LD HL.VPTR fLoad address where value is 

l stored. 
SETSNG CALL OAEFH ;Set TYPFLG to SNG 
HLFPAE CALL 9F7H ; Value to FPAl 
BINASC CALL OFBDH fConvert to ASCII 



Double precision values are converted using this 
routines 





LD 


HL.VPTR 


SETDBL 


CALL 


OAECH 


HLFPAE 


CALL 


09F7H 


BINASC 


CALL 


OFBDH 



?Load address of value 
I Set TYPFLG to DBL 
I Value to FPAl 
fConvert to ASCII 



For formatted output* one can use the same code as 
above, but replace "CALL OFBDH" in each one with the 
f ollowings 



FORMAT LD A*N ;Load control codes 
ASCUSG CALL OFBEH fConvert to formatted ASCII 

I in 4030H buffer . 



The value of "N" depends on the format desireds 

a, Set bit 3 (X'08') to place a plus (+) sign as the 
first character in the buffer if a positive value* 

b* Set bit 4 (X'lQ 8 ) to place a dollar sign ($) as 
the first character in the buffer, 

c* Set bit 5 (X'20') to place an asterisk (*) as the 
first character in the buffer* 

d* Set bit 6 (X'40 1 ) to place commas (,) at every 
third place of any assumed or explicit decimal point. 

Any combination of the above is acceptable. 
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CHAPTER 3? ASSEMBLY INTERFACING 



REGISTER UTILIZATION 

Although some exceptions do exist* one should assume 
that ALL non-index registers will be used by the math 
routine calls. This includes registers AF, BC, DE, and HL. 
However , due to the fact that the BASIC part of the ROM was 
originally written in 8080 assembly language, the alternate 
registers are not used* Index register IX is only used by 
the I/O routines. Index register IY is not used at ANY time 
during execution of ROM code* 



INTEGER MATH ROUTINES 

As noted in the chapter on data formats, integers are 
represented in the TRS-80 as signed, sixteen bit values* 
These values are passed to the integer math routines in 
register pairs HL and DE. After performing the requested 
operation, the result is placed in the Floating Point 
Accumulator (FPAl) at addresses 4121H and 4122H (LSB/MSB) . 
In addition, certain routines will place the result also in 
one of the register pairs* If this is the case, it will be 
specifically noted* 

Addition of two signed integers is performed by 
loading one value into HL and the second into DE a The call 
is made to 0BD2H* The result is placed in FPAl, and if an 
overflow does not occur, it will also be placed in HL. 
After the return from the addition, the TYPFLG should be 
checked to determine whether an overflow has occured. The 
ADDINT routine updates the TYPFLG to two (2) if the result 
is an integer and four (4) if the result overflowed and had 
to be expressed as a single precision value. 



?First value to HL 

I Second Value to DE 

; (DE + HL) to FPAl 

? Check type 

;If single prec 8 , overflow 





LD 


HL,VAL1 




LD 


DE,VAL2 


ADDINT 


CALL 


0BD2H 




RST 


32 




JP 


PO,OVRFL 
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Subtraction of integers is performed in a similar 
manner o The values are placed in DE and HL, the call is 
made (this time to 0BC7H) , the result of DE minus HL is 
returned in FPAl and HL if no overflow, and the TYPFLG is 
adjusted automatically depending on the result* 





LD 


HL,VALl 




LD 


DE,VAL2 


SUB INT 


CALL 


0BC7H 




RST 


32 




JP 


PO , OVRFL 



;First Value to HL 
l Second Value to DE 
; (DE - HL) to FPAl 
fTest overflow 
?Jump if overflow 



Multiplication is performed in the above manner also 





LD 


HL,VALl 




LD 


DE r VAL2 


MULINT 


CALL 


0BF2H 




RST 


32 




JP 


PO, OVRFL 



;First Val . to Reg 8 HL 
I Second Val. to Reg* DE 
; (DE * HL) to FPAl 
?Overf low? 
; If SNG, overflow 



Division of two integers is handled in a totally 
different fashion. Both values are first converted to 
single precision prior to performing the division,, The 
result is always a single precision value in FPAl with the 
TYPFLG set to four (4) . If modular division is desired 
(true integer division) , perform a call to the INT function 
following the call to 2490H* 





LD 


HL,VALl 




LD 


DE,VAL2 


DIVINT 


CALL 


2490H 


INT 


CALL 


0B37H 



;Divisor to HL 

?Dividend to DE 

; (DE / HL) to FPAl 

fTake integer of (DE / HL) 

; (Optional) 



The last routine for integers is the comparison 
routine. Registers DE and HL are set-up in the same way. 
The call is then made to 0A39H. This routine returns a 
value in register A or -1,0, or +1 depending on whether 
the contents of HL are less than, equal to, or greater than 
the contents of DE* 
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LD 


HL,VALl 


?lst Value to Reg. 


HL 




LD 


DE,VAL2 


,*2nd Value to Reg. 


DE 


CPRINT 


CALL 


0A39H 


;CP HL to DE 






JP 


M,LESS 


;HL < DE 






JP 


Z , EQUAL 


;HL = DE 






JP 


P,PLUS 


;HL > DE 





SINGLE PRECISION MATH ROUTINES 

Single precision numbers require four bytes for 
storage as noted earlier in the Data Formats chapter. These 
values are passed to the single precision routines in the 
RFPA (registers BCDE) and FPAl . Several methods can be used 
to move the data to the RFPA and FPAl, many of which were 
presented in the chapter on data manipulation. In the 
following examples, only a few will be noted. 



The result of the addition 
values is placed in FPAl. 



of two single precision 



SETSNG 


CALL 


OAEFH 




LD 


HL,BUF1 


HLFPA1 


CALL 


09B1H 




LD 


HL r BUF2 


LDDPHL 


CALL 


09C2H 


ADDSNG 


CALL 


0716H 



I Set TYPFLG to SNG (4) 
?Point to 1st value 
?Move buffer to FPAl 
fPoint to 2nd value 
,*Load RFPA from buffer 
; (RFPA + FPAl) to FPAl 



The ROM has two dedicated routines for addition of 
single precision values. The first adds 0.5 to the contents 
of the FPAl . The other adds the four-byte value in the 
buffer pointed to by HL to the value in FPAl. 



ADHALF CALL 07 08H 



;0.5 + FPAl to FPAl 



ADDHL 



LD 
CALL 



HL, BUFFI 
070BH 



?Point to value 

; (HL) + FPAl to FPAl 



Subtraction of single precision values is handled by 
two routines. The first, like addition, utilizes the RFPA 
and FPAl. This call subtracts FPAl from RFPA, placing the 
result in FPAl. 
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SETSNG 


CALL 


OAEFK 




LD 


HL,BUF1 


HLFPA1 


LnLL 


09B1H 




LD 


HL f BUF2 


LDDPHL 


CALL 


9C2H 


SUBSNG 


CALL 


0713II 



I Set TYPFLG to SNG (4) 
; Point to 1st value 
;Move buffer to FPAl 
; Point to 2nd value 
;Load RFPA from buffer 
; (RFPA - FPAl) to FPAl 



to 



An alternate method is to subtract the 
by HL from FPAl. Linkage as follows: 



value pointed 



SUB HI, 



LD HL,BUF1 ; Point to SNG Val . w/ HL 
CALL 0710H ; (HL) - FPAl to FPAl 



Single precision multiplication is performed using the 
same registers and accumulator as addition. A call is then 
made to Q847H. 



SETSNG 


CALL 


OAEFH 




LD 


HL f BUFl 


HLFPA1 


CALL 


09B1H 




LD 


HL r BUF2 


LDDPHL 


CALL 


09C2H 


MULSNG 


CALL 


0847H 



;Set TYPFLG to SNG (4) 
;Point to 1st value 
;Move buffer to FPAl 
;Point to 2nd value 
;Load RFPA from buffer 
; (RFPA * FPAl) to FPAl 



Another routine multiplies the single precision value 
in FPAl by ten (10), placing the result in FPAl . 



MUL10 



CALL 



93 EH 



;10*0 * FPAl to FPAl 



Single precision division divides the value in RFPA by 
the value in FPAl. Remember that the RAM area (4080H - 
408DH) described in Chapter 2 MUST BE INITIALIZED BEFORE 
THE DIVISION ROUTINES ARE USED I 



SETSNG 


CALL 


OAEFH 




LD 


HL.BUF1 


HLFPA1 


CALL 


09B1H 


CKRZMP 


CALL 


0955H 




JP 


Z.DIVZER 




LD 


HL,BUF2 



;Set TYPFLG to SNG (4) 
;Point to 1st value 
I Move buffer to FPAl 
I Check FPAl for M f Z,P 
;Divide by zero error 
;Point to 2nd value 
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LDDPHL CALL 9C2H ;Load RFPA from buffer 
DIVSNG CALL 8A2H ; (RFPA / FPAl) to FPAl 

The above routine tests the divisor for zero. If the 
test is not made, the divisor IS zero (remember Murphy's 
Law?!?), and the error trap has not been implemented, .** 

?/0 ERROR 

READY 

> 



An alternate linkage, assuming that the dividend 
FPAl, would be as follows: 



is in 



SETSNG 


CALL 


OAEFH 


STKFP1 


CALL 


09A4H 




LD 


HL,BUF1 


HLFPA1 


CALL 


9B1H 


CKRMZP 


CALL 


0955H 




JP 


Z,DIVERR 


POPFPA 


CALL 


8A0H 



;Set TYPFLG to SNG (4) 
;FPA1 (Dividend) to Stack 
;Point to 1st value 
; Move buffer to FPAl 
;Check for - , , + 
;Divide by zero error 
I (STACK / FPAl) to FPAl 



A divide by ten can be performed by loading FPAl 
the dividend and then issuing the following call: 



with 



DIVIO 



v^/\JLj1j 



0897H 



;FPA1 / 10.0 to FPAl 



To compare two single precision values, one in RFPA 
and the other in FPAl, use the following codes 



SETSNG 


CALL 


OAEFH 




LD 


HL,BUF1 


HLFPA1 


CALL 


09B1H 




LD 


HL,BUF2 


LDDPHL 


CALL 


09C2H 


CPRSNG 


CALL 


0A0CH 




JP 


M,LESS 




JP 


L f LiJ UAL 




JP 


P,MORE 



;Set TYPFLG to SNG (4) 
;Point to 1st value 
;Move buffer to FPAl 
jPoint to 2nd value 
lLoad RFPA from buffer 
;CP FPAl to RFPA 
;FPA1 < RFPA 
I FPAl = RFPA 
fFPAl > RFPA 



Also note that register h will contain 
depending on the outcome of the compare. 



, or +1 
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DOUBLE PRECISION MATH ROUTINES 

The five operations— addition, subtraction, multi- 
plication, division, and comparison — are performed using 
FPA1 (411DH - 4124H) and FPA2 (4127H - 412EH) . If the 
operation requested results in a value that overflows the 
upper limit of a double precision variable 
(+1.701411834544556D+38) , an overflow error will result. 
The calling program can recover by using the error recovery 
procedure outlined in chapter 2* 

To add two double precision values, use? 



SETDBL 


CALL 


OAECH 




LD 


HL,BUF1 


HLFPAE 


CALL 


09F7H 




LD 


HL,BUF2 




LD 


DE,4127 


MOVTDE 


CALL 


09D2H 


ADDDBL 


CALL 


0C77H 



; Set TYPFLG for DBL (8) 

fPoint to first value 

;Move to FPA1 

;Point to 2nd value 

I Point to FPA2 

;Move to FPA2 

; (FPA1 + FPA2) to FPA1 



To subtract two double precision numbers, uses 



SETDBL 


CALL 


OAECH 




LD 


HL,BUF1 


HLFPAE 


CALL 


09F7H 




LD 


HL,BUF2 




LD 


DE,4127 


MOVTDE 


CALL 


09D2H 


SUBDBL 


CALL 


0C70H 



;Set TYPFLG for DBL (8) 

;Point to first value 

?Move to FPA1 

?Point to 2nd value 

;Point to FPA2 

? Move to FPA2 

; (FPA1 - FPA2) to FPA1 



Multiplication of double precision numbers can be 
performed usings 



SETDBL CALL OAECH ;Set TYPFLG for DBL (8) 

LD HL,BUF1 ;Point to first value 

HLFPAE CALL 9F7H ;Move to FPA1 

LD HL,BUF2 ?Point to 2nd value 

LD DE,4127H ;Point to FPA2 

MOVTDE CALL 9D2H ;Move to FPA2 

MULDBL CALL 0DA1H ; (FPA1 * FPA2 ) to FPAl 
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To divide FPAl by FPA2 , this linkage is employed 
(which includes error checking for a divisor of zero) : 



SETDBL CALL OAECH ;Set TYPFLG for DBL (8) 

LD HL,BUF1 ;Point to first value 

HLFPAE CALL 09F7H ?Move to FPAl 

LD HL,BUF2 ?Point to 2nd value 

LD DE,4127H ?Point to FPA2 

MOVTDE CALL 9D2H ,°Move to FPA2 

LD A, (412EH) ?Check FPA2 for zero 

OR A ;Set Z flag on zero 

JP Z,DIVZER jDivide by zero error 

DIVDBL CALL 0DE5H ; (FPAl / FPA2) to FPAl 



The comparison of 
performed as follows: 



two double precision values is 



SETDBL 


CALL 


OAECH 




LD 


HL,BUFl 


HLFPAE 


CALL 


09F7H 




LD 


HL,BUF2 




LD 


DE,4127H 


MOVTDE 


CALL 


09D2H 


CPRDBL 


CALL 


0A78H 




JP 


M,LESS 




JP 


Z , EQUAL 




JP 


P,MQRE 



Set TYPFLG for DBL (8) 
Point to first value 
Move to FPAl 
Point to 2nd value 
Point to FPA2 
Move to FPA2 
Compare FPAl to FPA2 
FPAl < FPA2 
FPAl = FPA2 
FPAl > FPA2 



INTERFACING TO FUNCTIONS 

This section will discuss the methods of interfacing 
to the math functions (ABS, ATN, COS, EXP, FIX, INT, LOG, 
POWER, RND, SGN, SIN, SQR, TAN) . It is important to note 
tht all of these functions, except ABS, FIX, INT, and RND, 
operate exclusively on single precision data. Therefore, in 
most cases, the floating point accumulator (FPAl) will be 
used to provide the argument to the function and will be 
the destination of the result. The POWER function is also 
an exception since it requires two arguments and also uses 
the RFPA as well as FPAl. 
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ABS(X) - Absolute Value Function 

The ABS(X) function will return the absolute value of 
an integer, single precision, or double precision argument 
loaded into FPA1 . The following linkages are used for ABSt 



ABSINT 


LD 


HL, VALUE 


SAVINT 


CALL 


0A9AH 


ABS 


CALL 


0977H 


ABSSNG 


LD 


HL, VALUE 


HLFPA1 


CALL 


09B1H 


SETSNG 


CALL 


OAEFH 


ABS 


CALL 


0977H 


ABSDBL 


CALL 


OAECH 




LD 


HL, VALUE 


HLFPAE 


CALL 


09F7H 


ABS 


CALL 


0977H 


ATN(X) - Arc 


tanaent 


Function 



;Put integer value into HL 
;Place into FPAl 
iTake Absolute value* 

;Point to SNG value 
;Value to FPAl 
; TYPFLG set for SNG (4) 
?Take Absolute Value 

;Set TYPFLG for DBL (8) 
;Point to DBL Value 
iValue to FPAl 
;Take absolute Value 



Arctangent is a trigonometric function which requires 
a single precision argument loaded into FPAl. This argument 
is a number which represents the value of the TAN function 
at the specified angle, the exact value of which will be 
returned by the ATN function* (i.e., TAN(X)=Y, ATN(Y)=X). 





LD 


HL,BUF1 


HLFPA1 


CALL 


09B1H 


SETSNG 


CALL 


OAEFH 


ATN 


CALL 


15BDH 



;Point to data value 
;Move to FPAl 
I TYPFLG to SNG (4) 
;ATN(X) returned in FPAl 



COS(X) 



Cosine Function 



COS is another trigonometric function that requires 
the argument to be a single precision number loaded into 
FPAl. The result is returned in FPAl. The cosine is 
computed by using the trig identity COS(X) = SIN(X+PI/2). 
The value "X+PI/2" is first computed, then its SIN is 
taken. The constant PI/2 is evaluated as 1.5708. Linkage to 
this function is as follows? 
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LD 


HL,BUF1 


HLFPA1 


CALL 


09B1H 


SETSNG 


CALL 


OAEFH 


COS 


CALL 


1541H 



; Point to data value 
,°Move to FPA1 
; TYPFLG to SNG (4) 
,°COS(X) returned in 



FPA1 



EXP(X) - Exponential Function 

The exponential function raises the value of "e" to 
the power, X* The argument* X, is a single precision value 
placed into FPAl. It is important to note that an overflow 
error can occur if the value of X is too large* Any value 
exceeding 87.3363 (126 divided by 1.4427 which is the Log 
base 2 of e) is too large and will result in overflow. Any 
value less than -88*7225 (-128 divided by 1.4427) will 
return a result of zero. 





LD 


HL,BUFl 


HLFPAl 


CALL 


09B1H 


SETSNG 


CALL 


OAEFH 


EXP 


CALL 


1439H 



iPoint to data value 
;Move to FPAl 
? TYPFLG to SNG (4) 
fEXP(X) returned in FPAl 



FIX(X) - Truncation Function 

The FIX function will truncate a data value (i.e., if 
Y=FIX(+2.76) , Y=+2? if Y=FIX (-2.76) , Y=-2) . This function 
accepts arguments that are integer, single precision, or 
double precision^ the TYPFLG indicates the type of 
argument. However, Fixing an integer performs no useful 
function. 

FIXINT LD HL, VALUE ;Put integer value into HL 
SAVINT CALL 0A9AH ; Place into FPAl 
FIX CALL 0B26H ;FIX value. 

FIXSNG LD HL, VALUE ; Point to SNG value 

HLFPAl CALL 9B1H ; Value to FPAl 

SETSNG CALL OAEFH ; TYPFLG set for SNG (4) 

FIX CALL 0B26H ;FIX Value 

FIXDBL CALL OAECH ;Set TYPFLG for DBL (8) 

LD HL, VALUE ; Point to DBL Value 

HLFPAE CALL 09F7H ;Value to FPAl 

FIX CALL 0B26H ;FIX Value 
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INT(X) - Greatest Integer Function 

The INT function finds the greatest integer not 

exceeding the argument (i a e., if Y=INT (+2 *76) , Y=+2; if 

Y=INT(-2 S 76) , Y=-3) . All types of numeric types are 
accepted? TYPFLG should be set to the type to be INTed. 



INTINT 


LD 


HL, VALUE 


SAVINT 


CALL 


0A9AH 


INT 


CALL 


0B37H 


INTSNG 


LD 


HL, VALUE 


HLFPA1 


CALL 


09B1H 


SETSNG 


CALL 


OAEFH 


INT 


CALL 


0B37H 


INTDBL 


CALL 


OAECH 




LD 


HL, VALUE 


HLFPAE 


CALL 


09F7H 


INT 


CALL 


0B37H 



;Put integer value into HL 
;Place into FPAl 
I INT value . 

?Point to SNG value 
;Value to FPAl 
?TYPFLG set for SNG (4) 
? INT Value 

I Set TYPFLG for DBL (8) 
?Point to DBL Value 
;Value to FPAl 
;INT Value 



LOG(X) - Natural Logarithm Function 

The LOG function returns the 
argument passed in FPAl . LOG cannot 
values. The following interface, 
performs the LOG functions 



Log base e of the 

be used on negative 

with error-checking, 





LD 


HL,VALl 


HLFPA1 


CALL 


09B1H 


SETSNG 


CALL 


OAEFH 


CKRMZP 


CALL 


0955H 




CALL 


M, ERROR 


LOG 


CALL 


0809H 



fPoint to data value 
;Move value to FPAl 
? Set TYPFLG for SNG ( 
;Check for -, r + 
^Branch if Negative 
I Take LOG 



ERROR 


CALL 


0977H 




LD 


HL , ERRMSG 


MSGOUT 


RET 


2B75H 


ERRMSG 


DEFM 
NOP 


•LOG Erro 



? Take ABS(FPAl) 
?Point to error msg 
lOutput error msg to CRT 
?Return to take LOG (ABS(X) ) 
- Negative Argument 1 
?End of Msg delimeter 
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The algorithm used to calculate the LOG is as follows 



LET 



M 


= 


Mantissa (X) 


C 


= 


SQRT(2)/2 


R 


= 


Exponent (X) 


CI 


= 


.598979 


C2 


= 


.961471 


C3 


= 


2.88539 


C4 


= 


.693147 


M 


ss 


(M-C)/(M+C) 


K 


= 


M * M 


LOG(X) 


= 


(((C1*K+C2) 



POWER - Raise X to the power of Y 

This routine is accessed from BASIC using the up-arrow 
key. The value of X must be a single precision value loaded 
onto the STACK. The value of Y can be of type single, 
double, or integer and is placed in FPAl . The TYPFLG is set 
according to the value of Y. Linkage reflecting a single 
precision Y is as follows? 



LD HL,RETADR ;Set return address 

PUSH HL ?Ret addr. to top of stack 

LD HL,BUFX ; Point to X 

HLFPA1 CALL 9B1H ;Move to FPAl 

STKFP1 CALL 09A4H ; PI ace on Stack 

SETSNG CALL OAEFH ;Set TYPFLG to SNG (4) 

LD HL.BUFX ; Point to X 

T0FPA1 CALL 09B1H ?Move to FPAl 

JP 13F2H ?Take X power Y 

As can be noted from the above linkage, entry is made 
to the POWER routine via a JUMP instruction with a return 
address pushed onto the stack as the first operation. This 
must occur in this fashion since the data value X must be 
at the top of the stack upon entry to the POWER routine. 

X POWER Y is computed by setting EXP(Z) = X POWER Y 

then solving for Z from Z = Y * LOG(X). The EXP function 

then uses Z as its argument to calculate EXP(Z), the 
answer . 
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RND(X) - Random Number Generation Function 

The RND function provides for the generation of a 
random number as its result. Depending on the value of X, 
it will return either a single precision value in the range 
zero through one (0.0 to 1.0 when X=0), or an integer value 
between one (1) and the value of X (which must be between 
one and 22,161 or an error will result). 

The RND routine uses RAM memory at addresses 4090H to 
4092H which must be initialized to X'40 E6 4D* f which can 
be accomplished by using the initialization routine 
described in Chapter 2. Addresses 40AAH to 40ACH are used 
as part of the "seed" value. After initialization, do not 
disturb these areas! 

The random number generated can be "randomized" 
through a call to the RANDOM command: 



RANDOM CALL 01D3H ; Randomize seed 



The RANDOM routine sets a single byte in the "seed" 
field from the Z80 refresh register (LD A,R). This call 
only modifies the contents of reg. A. 

The following code will return, in FPAl , a single 
precision random number between zero and one: 

SETSNG CALL OAEFH ;Set TYPFLG to SNG (4) 

ZERFPA CALL 0778H ;Zero FPAl 

RND CALL 14C9H ;Generate random number 



This linkage will return an integer random number 
between one and the integer value passed to the RND routine 
in FPAl: 
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LD 



SAVINT 


CALL 


0A9AH 


RND 


CALL 


14C9H 


CINT 


CALL 


0A7FH 



HL,MAXVAL ;Generate number between one 
; and MAXVAL 
;Save in FPA1 . TYPFLG=INT 
^Generate random number 
;Convert to integer 



SGN(X) - Determine Sign of Argument 



The 
integer , 
argument 
argument 
value of - 
(4121H - 
indicate 
loads into 
to the SGN 



SGN function determines the algebraic sign of 

single or double precision arguments. The 

is loaded into FPA1 . Depending on whether the 

is negative, zero or positive, the result is a 

1/ 0, or +1 expressed as an integer value in FPA1 

4122H) . The TYPFLG is automatically set to 2 to 

an integer value. Be aware that the value one 

FPA1 will be overwritten by the result. Linkage 

routine for each argument type is as follows? 



SGNINT 


LD 


HL, VALUE 


SAVINT 


CALL 


0A9AH 


SGN 


CALL 


98AH 


SGNSNG 


LD 


HL, VALUE 


HLFPA1 


CALL 


09B1H 


SETSNG 


CALL 


OAEFH 


SGN 


CALL 


98AH 


SGNDBL 


CALL 


OAECH 




LD 


HL, VALUE 


HLFPAE 


CALL 


09F7H 


SGN 


CALL 


98AH 



;Put integer value into HL 
; Place into FPA1 
;Return Sign of Value 

;Point to SNG value 
;Value to FPA1 
;TYPFLG set for SNG (4) 
;Return Sign of Value 

;Set TYPFLG for DBL (8) 
? Point to DBL Value 
? Value to FPA1 
^Return Sign of Value 
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SIN(X) 



Sine Function 

trigonometric function which 



SIN is a 
single precision argument 
sine is returned in FPAl • 



placed in FPAl. 



requires a 
The resultant 





LD 


HL,BUF1 


HLFPA1 


CALL 


09B1H 


SETSNG 


CALL 


OAEFH 


SIN 


CALL 


1547H 



jPoint to data value 
; Move to FPAl 
;TYPFLG to SNG (4) 
;SIN(X) returned in FPAl 



SOR(X) - Square Root Function 

The SQR function takes the square root of a positive 
single precision value located in FPAl. An error will occur 
if it is called with a negative value in the floating point 
accumulator . For this reason, the following linkage takes 
the absolute value of any negative numbers before making 
the call. 

?Point to data value 

; Move to FPAl 

fTYPFLG to SNG (4) 

;Check FPAl for -, ? + 

fTake ABS(-X) 

;SQR(X) returned in FPAl 





LD 


HL,BUF1 


HLFPA1 


CALL 


09B1H 


SETSNG 


CALL 


OAEFH 


CKRMZP 


CALL 


0955H 


ABS 


CALL 


M f 0977H 


SQR 


CALL 


13E7H 



TAN(X) - Tangent Function 

The TAN function also requires a single 
value in FPAl as its argument. The resultant is 
FPAl. The tangent is computed using the trig 



"TAN(X) = ! 


SIN(X) / 


' COS(X) 


follows: 








LD 


HL f BUF1 


HLFPA1 


CALL 


09B1H 


SETSNG 


CALL 


OAEFH 


TAN 


CALL 


15ABH 



precision 
placed in 
identity 
The linakge for TAN is as 



;Point to data value 
iMove to FPAl 
;TYPFLG to SNG (4) 
;TAN(X) returned in FPAl 
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CHAPTER 4s DISASSEMBLY OF ROM MATH ROUTINES 

In this chapter, one will find a commented disassem- 
bly of the Level II BASIC ROM mathematics routines. How- 
ever, a few important points must be made. 

First of all, the ROM code is the property of Micro- 
soft and is protected by their copyright. For this reason, 
it is impossible to provide a complete disassembly of their 
code without violating their rights. For this reason, the 
publisher decided to provide the hex address of the 
instruction, the operator, and the comments. The hex ob- 
ject code and the operands are omitted. 

If the reader is an owner of a TRS-80, he is then able 
to procure the full disassembly by using a machine language 
disassembler or the BASIC language disassembler provided in 
Appendix C. Space has been provided so that the operands 
can be written in next to the operators to provide a com- 
mented listing that can be used for reference. 

Secondly, since a full interfacing guide is provided 
in the first three chapters, it is unnecessary to refer to 
this listing in order to interface with the routines. 
Nevertheless, this chapter has been provided for those that 
may be curious as to the manner in which the ROM operates. 
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Math Routines: Disassembly 



>***#■$* 



jS INGLE PRECISION ADDITION & SUBTRACTION 



0708 
070B 
070E 
0710 
0713 
0716 
0717 
0718 
0719 
071C 
071D 
0720 
0721 
0723 
0724 



0725 
0726 
0729 
072A 
072D 
072E 



072F 
0731 
0732 
0733 
0736 
0737 
0738 

073B 
073C 
073F 
0742 
0745 
0748 
0749 



LDHALF 
Z070B 

Z0710 

SUBSNG 

ADDSNG 



0708 
070B 
0710 
0713 
0716 

LD 

CALL 

JR 

CALL 

CALL 

LD 

OR 

RET 

LD 

OR 

JP 

SUB 

JR 

CPL 

INC 



0.5 
(HL) 
(HL) 
RFPA 



-> 
-> 
-> 
_> 

-> RFPA + 



FPA1 
FPA1 
FPA1 
FPA1 
FPA1 



-> 
-> 
-> 
-> 
-> 



FPA1 
FPA1 
FPA1 
FPA1 
FPA1 



I LOAD RFPA 
I LOAD REAL 

j LOAD RFPA 
I MAKE FPA1 
I TEST RFPA 
;& RETURN 



WITH 0.5 
VALUE AT 



(HL) INTO FPA1 



WITH (HL) 

NEGATIVE 

FOR ZERO (VAR2) 

F SO 



I IF FPA1 (VAR1) IS ZERO, 
|PUT VAR2 -> FPA1 & EXIT 



I JUMP IF VAR1 > VAR2 
|CVRT EXP DIFF TO + 



•EXCHANGE 



VAR1 IN FPA1 WITH VAR2 IN RFPA 



EX 

CALL 

EX 

CALL 

POP 

POP 



; PLACE VAR1 ON STACK 
I PUT REAL ONTO STACK 

I RFPA (VAR2) -> FPA1 
I RECOVER VAR1 IN RFPA 



•IF DIFF IN EXP > 10**7, DON'T BOTHER TO ADD 
Z072F 



CP 

RET 

PUSH 

CALL 

LD 

POP 

CALL 

OR 

LD 

JP 

CALL 

JP 

INC 

INC 



1 2**25 APPX 10**7 

I RET WITH FPA1 = LARGER VAL 

iTURN ON SIGN BITS 



|DI V IDE VAR1 MANTISSA BY 
jDIFFERENCE IN EXPONENTS 
jTEST RESULT OF SIGNS 



THE 



lJUMP IF SIGN BITS WERE .NE. 
I ADD MANTISSA (HL) TO EDC 
I INC EXPON IF ADD OVERFLOWED 
;PT TO EXPONENT & ADD 1 DUE 
;T0 CARRY ON MANTISSA ADD 
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Math Routines: Disassembly 



074A JP ;0VERFL0W ERROR 

074D LD 1 1 NIT ROTATE LOOP TO 1 TO 

074F CALL ;DIV MANTISSA BY 2 FOR 

0752 JR ; EXPONENT INCREASE 

I SUBTRACT ONE NBR FROM ANOTHER WHEN ? SIGNS ? WERE DIFFERENT 

0754 Z0754 XOR COMPLEMENT EXPON IN RFPA 

0755 SUB ?AND SET THE CARRY FLAG 

0756 LD 

•SUBTRACT MANTISSA IN RFPA FROM MANTISSA IN FPA1 

I SUB LOW BYTE 



?PT TO 4122 
I SUB MID BYTE 



0757 




LD 


0758 




SBC 


0759 




LD 


075A 




INC 


075B 




LD 


075C 




SBC 


075D 




LD 


075E 




INC 


075F 




LD 


0760 




SBC 


0761 




LD 


0762 


Z0762 

p 


CALL 




1 


SNGL 




t 




0765 


NRMLZS 


LD 


0766 




LD 


0767 




XOR 


0768 


SSHFT8 


LD 


0769 




LD 


076A 




OR 


076B 




JR 


076D 




LD 


076E 




LD 


076F 




LD 


0770 




LD 


0771 




LD 


0772 




SUB 


0774 




CP 


0776 




JR 




I MANTISSA W 








0778 


ZERFPA 


XOR 


0779 


Z0779 


LD 


077C 


o ¥:%%%% 


RET 



?PT TO 4123 
I SUB HIGH BYTE 



iTWOS COMPLEMENT THE RFPA 

SNGL PREC NORMALIZATION ROUTINE 

;XFER EXPON & LOW BYTE SINCE 

I NEED THE REGS B & E 

I SET SHIFT COUNTER TO ZERO 

?SET SHIFT COUNTER FROM ACCUMULATOR 

;IF HIGH BYTE IS 

iSHIFT LEFT 8 BITS 

,-LEFT SHIFT THE MANTISSA 8 BITS 
I BY JUGGLING THE REGISTERS 

;P/U THE COUNTER & COUNT DOWN 8 

I IF MANTISSA WAS NOT SHIFTED 
|OUT OF RFPA, THEN CYCLE 

MANTISSA WAS ALL ZEROES, ZERO THE RESULT 

I ZERO FPA1 
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; CONTINUE TO NORMALIZE 




.##**# 
* 




077D 


SSHFT1 


DEC 


077E 




ADD 


077F 




LD 


0780 




RLA 


0781 




LD 


0782 




LD 


0783 




ADC 


0784 




LD 


0785 


SCHKP 


JP 




1 A 1 HAS SHIFTED INTO 




.#*### 

? 




0788 




LD 


0789 




LD 


078A 




LD 


078B 


Z078B 


OR 


07 8C 




JR 



Math Routines: Disassembly 



WITH SINGLE BIT SHIFTS 



I REDUCE THE SHIFT COUNTER 

jMUL »E» & f B' BY 2 (HL SAVED B&E ) 

j SHI FT MID BYTE (MUL BY 2) 



I SHI FT HIGH BYTE (MUL BY 2) 

;HAS 1 SHIFTED INTO SIGN? 

THE SIGN POSITION, CLEANUP THE NUM 

;P/U THE SHIFT COUNTER 

I SET THE LOW BYTE 

|P/U THE EXPON MODIFIED 

I SEE IF ANY SHIFTING HAD OCCURRED 

;I.E. WAS IT ALREADY NORMALIZED? 

I NUMBER HAD TO BE SHIFTED TO BE NORMALIZED. CORRECT THE EXPON 

078E ' LD | ADD THE SHIFT COUNTER (WHICH 

0791 ADD |IS A NEGATIVE VALUE) TO 

0792 LD ;FPA1»S EXPONENT 

0793 JR |ZERO FPA1 IF SHIFT < EXPON 

0795 RET | RET WITH ZERO IF SHIFT = EXPON 

I SHIFT WAS GREATER THAN EXPONENT, CONTINUE 

0796 Z0796 LD ;P/U THE RESULT EXPONENT 

0797 Z0797 LD 

079A OR |IS BIT 7 SET? 

079B CALL | INC RFPA BY 1 IF IT IS! 

079E • LD ;P/U THE FPA1 EXPON -> B 

079F INC |THEN PT TO 4125 FOR 'SIGN' 

07A0 LD ;P/U THE PROCESSED SIGN BITS 

07A1 AND ;& STRIP OFF ALL BUT THE SIGN BIT 

I REPLACE THE SIGN POSITION IN RFPA (WHICH IS ALWAYS A 1 
I AFTER NORMALIZATION) WITH THE CORRECT SIGN 

07 A3 ' XOR iPUTCORRECT SIGN INTO RFPA 

07A4 LD 

07A5 JP |REPLFPA1 WITH ADD/SUB RESULT 

• INCREASE THE RFPA BY 1 

• ■&•&■ •&■&■& 

07 A8 Z07A8 INC ; I NC LOW BYTE 

07A9 RET 
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Math Routines: Disassembly 



07AA 
07AB 
07AC 
07AD 
07AE 
07B0 
07B1 
07B2 
07B4 



07B7 
07B8 
07B9 
07BA 
07BB 
07BC 
07BD 
07BE 
07BF 
07C0 
07C1 
07C2 



07C3 
07C6 
07C7 
07C8 
07C9 
07CA 
07CB 
07CC 
07CD 
07CE 
07CF 
07D0 
07D1 
07D2 
07D3 
07D4 
07D5 
07D6 



OVERR 



xxxx* 



INC 

RET 

INC 

RET 

LD 

INC 

RET 

LD 

JP 



j INC MID BYTE IF 'CARRY' 

j INC HIGH BYTE IF 'CARRY' 

jPUT THE 1 BACK INTO THE 'SIGN' BIT 
;& INC THE EXPONENT 

I OVERFLOW ERROR 



I ADD MANTISSA POINTED TO BY HL TO MANTISSA IN REGS EDC 

Z07B7 LD 
ADD 
LD 
INC 
LD 
ADC 
LD 
INC 
LD 
ADC 
LD 
RET 

I TWO'S COMPLEMENT OF RFPA 



;ADD LOW BYTE 

;PT TO MID BYTE AND ADD 

;PT TO HIGH BYTE AND ADD 



? INVERT THE 'SIGN' BIT RESULT 



07D7 



S2SCMP LD 
LD 
CPL 
LD 
XOR 
LD 
SUB 
LD 
LD 
SBC 
LD 
LD 
SBC 
LD 
LD 
SBC 
LD 
RET 

• X %##% 

; PERFORM A RIGHT CIRCULAR SHIFT OF A MANTISSA 
; BASED ON THE VALUE IN REG A 

SSHTR LD 1 1 NIT B TO ZERO 



I SET L TO ZERO 

;COMP 'B' & SET C-FLAG 

I ZERO ACCUM 
;COMP LOW BYTE 

j ZERO ACCUM 
;COMP MID BYTE 

I ZERO f\CCUM 
5COMP HIGH BYTE 
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Math Routines: Disassembly 



07D9 
07DB 
07DD 
07DE 
07DF 
07E0 
07E2 
07E4 
07E6 
07E7 
07E8 
07E9 
07EA 
07EB 
07EC 
07ED 
07EE 
07EF 
07F0 
07F1 
07F2 
07F3 
07F4 
07F5 
07F6 



07F8 
07FA 
07FC 
07FD 
07FF 
0801 
0803 
0805 
0807 



SSHTR8 SUB 

JR 

LD 

LD 

LD 

LD 

JR 
Z07E4 ADD 

LD 
SSHTR1 XOR 

DEC 

RET 

LD 
Z07EB RRA 

LD 

LD 

RRA 

LD 

LD 

RRA 

LD 

LD 

RRA 

LD 

JR 

•LOG ROUTINE DATA VALUES 

DEFW 
DEFW 
DEFB 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 



j TEST FOR 8 OR MORE BITS 
;JUMP IF SHIFT < 8 
I JUGGLE THE REGS 



;ADD BACK THE 8 + 1 MORE 
jINIT THE SHIFT COUNTER 
;ZERO A & REDUCE COUNTER 

iFINISHED WHEN CTR RUNS OUT 
j SHI FT HIGH BYTE 



jSHIFT MID BYTE 



SHIFT LOW BYTE 



I SHI FT EXPONENT 



Z07F8 



I REAL 1 oO 



Z07FC 



1 3 LOG CONSTANTS FOLLOW 
;0*598979 

j0c961471 

|2,88539 





810 

3 

56AAH 

801 9H 

22F1H 

8076H 

0AA56H 

823 8H 

? PROCESS LOG(X) 

ALGORITHM AS FOLLOWS: 
;LET M = MANTISSA(X) : C=SQRT(2)/2 
I M = <M-C)/(M+C) : K = M * M 
I LOG(X) = (((C1*K+C2)*K+C3)*M+R-0.5)*C4 
I C1=. 598979 C2=. 961471 C3=2.88539 C4=. 693147 



R = EXPONENT(X) 



0809 
080C 
080D 
0810 
0813 



LOG 



CALL 

OR 

JP 

LD 

LD 



iCHECK MINUS, ZERO, PLUS 
j ILLEGAL FUNCTION CALL 
I IF NEG ARGUMENT 
iPLACE FPA1 EXPONENT -> A 
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Math Routines: Disassembly 



0814 
0817 
081 A 
081B 
081C 
081D 
081E 
081F 
0822 
0823 
0824 
0825 
0828 
082B 
082E 
0831 
0834 
0837 
083A 
083D 
083E 
0841 
0844 



0847 
084A 
084B 
084D 
0850 
0851 
0854 
0855 
0858 
085B 
085C 
085D 
0860 
0861 
0864 
0865 
0866 
0869 
086A 
086B 
086C 
086E 
086F 
0871 



Z0841 



LD 

LD 

SUB 

PUSH 

LD 

PUSH 

PUSH 

CALL 

POP 

POP 

INC 

CALL 

LD 

CALL 

LD 

CALL 

LD 

LD 

CALL 

POP 

CALL 

LD 

LD 



***** 

MULTIPLICATION, 

***** 

MULSNG CALL 

RET 

LD 

CALL 

LD 

LD 

EX 

LD 

LD 

LD 

LD 

LD 

PUSH 

LD 

PUSH 

PUSH 

LD 
Z0869 LD 

INC 

OR 

JR 

PUSH 

LD 
Z0871 RRA 



10.707107 (SQRT(2)/2) 

SUB OFF X ? 80 ? FROM EXP 
& SAVE RESULT 

PLACE X ? 80 ? AS NEW EXPONENT 
SAVE SQRT(2)/2 

;ADD SIMaCPRECSSSON 
j RECOVER SQRT(2)/2 

& MULTIPLY BY 2 

RFPA/FPA1 

SUBTRACT FPA1 FROM 1.0 

POINT TO TABLE VALUES 
& PROCESS THE SERIES 
-0.5 

; SUBTRACT 0.5 

I RECOVER EXPONENT EXCESS 

;0*693147 = L0G(2) 



SINGLE PRECISION 

lIMMEDEDIATE RET IF VARIABLE = 



I ADD BOTH EXPONENTS 

;STORE BYTE WITH THE SIGN BIT 

SAVE TWO LOW ORDER BYTES 
OF THE MANTISSA 
ZERO RFPA 



;INIT RETURN TO NORMALIZE 

;INIT RET TWICE FOR 
1 2ND & 3RD BYTES 

PT TO LOW ORDER BYTE 
P/U BYTE FROM FPA1 
& PT TO NEXT BYTE 

JUMP IF BYTE IS ALL ZERO 
SAVE PTR TO FPA1 BYTE 
SNIT FOR 8 BITS 
PASS BIT TO CARRY FLAG 
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Math Routines: Disassembly 



0872 




LD 


0873 




LD 


0874 




JR 


0876 




PUSH 


0877 




LD 


087A 




ADD 


087B 




EX 


087C 




POP 


087D 




LD 


0880 




ADC 


0881 


Z0881 


RRA 


0882 




LD 


0883 




LD 


0884 




RRA 


0885 




LD 


0886 




LD 


0887 




RRA 


0888 




LD 


0889 




LD 


088A 




RRA 


088B 




LD 


088C 




DEC 


088D 




LD 


088E 




JR 


0890 


Z0890 


POP 


0891 




RET 


0892 


Z0892 


LD 


0893 




LD 


0894 




LD 


0895 




LD 


0896 


9 


RET 




;DI VISION, SI 




? 


0897 




f 


08A0 




1 


08A2 




9 




0897 


Z0897 


CALL 


089A 




LD 


089D 




CALL 


08A0 


Z08A0 


POP 


08A1 




POP 


08A2 


DIVSNG 


CALL 


08A5 




JP 


08A8 




LD 


08AA 




CALL 


08 AD 




INC 


08AE 




INC 


08AF 




DEC 



I SAVE TEST BYTE 

j PUT HIGH ORDER BYTE -> A 

jBYPASS ADD IF TEST BYTE BIT=0 

j SAVE TEST BYTE 

;P/U 2 LOW ORDER BYTES 

j ADD MANTISSA (RFPA) 

j RESTORE TEST BYTE 

;ADD IN THE HIGH ORDER BYTE 

: ROTATE RFPA RIGHT BY 1 BIT 



I DECREMENT THE BIT COUNTER 
;XFR TEST BYTE 
j LOOP IF ANOTHER BIT TO DO 
j RESTORE THE FPA1 BYTE PTR 
;RET TO ANOTHER BYTE OR 
? NORMALIZE RESULT 
jSHUFFLE 8 BITS RIGHT 



NGLE PRECISION 

-> FPA1 / 10.0 -> FPA1 

-> STACK VALUE / FPA1 -> FPA1 

-> RFPA / FPA1 -> FPA1 

;FPA1 TO STACK 
1 10.0 TO FPA1 

j RECOVER ORIG FPA1 INTO RFPA 

;DIV BY ZER ERROR IF 

jDIVISOR IS 0.0 

1 1 NIT TO SUB EXPONENTS 

I THEN DO IT 

jBUILD VALUES INTO 

;RAM ROUTINE 4080-408D 

;PT TO LOW ORDER DIVISOR 
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Math Routines: Disassembly 



08B0 
08B1 
08B4 
08B5 
08B6 
08B9 
08BA 
08BB 
08BE 
08BF 
08C0 
08C1 
08C2 
08C3 
08C4 
08C7 
08C8 
08C9 
08CA 



Z08C7 



,##### 



•&&&-M--& 



LD 

LD 

DEC 

LD 

LD 

DEC 

LD 

LD 

LD 

EX 

XOR 

LD 

LD 

LD 

LD 

PUSH 

PUSH 

LD 

CALL 



iBYTE, PICK IT UP & STUFF 

:INTO RAM ROUTINE 

;PT TO MIDDLE DIVISOR 

;BYTE, PICK IT UP & STUFF 

:!NTO RAM ROUTINE 

;PT TO HIGH ORDER DIVISOR 

;BYTE, PICK IT UP & STUFF 

:INTO RAM ROUTINE 

i PL ACE DIVIDEND MANTISSA 

;INTO REGS B,H,& L 

;CLEAR THE RFPA MANTISSA 



iCLEAR "TEST" BYTE 
I SAVE DIVIDEND 

;P/U DIVIDEND HIGH ORDER 
;RAM ROUTINE BUILT ABOVE 



RAM ROUTINE AS FOLLOWS 



4080H 

4084H 

4088H 
408BH 



SUB 

LD 

LD 

SBC 

LD 

LD 

SBC 

LD 

LD 

RET 



L,A 
A,H 
A,N 
H,A 
A,B 
A,N 
B,A 
A.N 



;SUB HIGH ORDER DIVISOR 

;P/U DIVIDEND MID ORDER 

;SUB MID ORDER DIVISOR 

;P/U DIVIDEND LOW ORDER 

jSUB LOW ORDER DIVISOR 

;SET TO TEST OVERFLOW 



t 


08CD 


SBC 


08CF 


CCF 


08D0 


JR 


08D2 


LD 


08D5 


POP 


08D6 


POP 


08D7 


SCF 


08D8 


DEFB 


08D9 Z08D9 POP 


08DA 


POP 


08DB 


LD 


08DC 


INC 


08DD 


DEC 


08DE 


RRA 



SUBTRACT FROM TEST BYTE IF HIGH ORDER DID NOT CARRY 

1 FROM TEST BYTE IF HIGH ORDER DID CARRY 
THEN SWITCH CARRY FLAG FROM THIS SUBTRACT 



; SWITCH RESULT OF CARRY 
;BYPASS IF ORIGINALLY CARRIED 
I RESET "TEST" VALUE 
I POP OFF DIVIDEND 
I AND IGNORE IT 
I RESET THE CARRY FLAG 
0D2H |HIDE NEXT 2 INST WITH ? JP NC< 
;POP DIVIDEND INTO B, H, & L 



|TEST FOR C HAVING BIT 7 
?SET (I.E. SHOWS UP AS A 
I NEGATIVE VALUE) 
;P/U CARRY FLAG INTO BIT 7 
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9 






f 


EXIT THIS PF 




9 


HAS HAD A OF 








08DF 




JP 


08E2 




RLA 


08E3 




LD 


08E4 




RLA 


08E5 




LD 


08E6 




LD 


08E7 




RLA 


08E8 




LD 


08E9 




LD 


08EA 




RLA 


08EB 




LD 


08EC 




ADD 


08ED 




LD 


08EE 




RLA 


08EF 




LD 


08F0 




LD 


08F3 




RLA 


08F4 




LD 


08F7 




LD 


08F8 




OR 


08F9 




OR 


08FA 




JR 


08FC 




PUSH 


08FD 




LD 


0900 




DEC 


0901 




POP 


0902 




JR 


0904 


> 


JP 




j ROUTINE TO PERFORM 








0907 


Z0907 


LD 


0909 




DEFB 2 EH 


090A 


Z090A 


XOR 


090B 




LD 


090E 




LD 


090F 




INC 


0910 




XOR 


0911 




LD 


0912 




LD 


0914 


Z0914 


LD 


0915 




OR 


0916 




JR 


0918 




LD 


0919 




LD 


091C 




XOR 



iOOEDURE WHEN REG "C" OF RFPA 
:E SHIFTED INTO ITS BIT 7 

j JUMP IF "C n HAD BIT 7 SET 
;ELSE RESTORE STATE OF CARRY 
;NOW SHIFT THE REGISTER 
; FLOATING POINT ACCUMULATOR 
;ONE BIT LEFT 
;IF CARRY WAS SET FROM 
;08D7H, A BIT IS SHIFTED 
;IMTO THE RFPA 



;SHIFT DIVIDEND (13, H, L) 
jONE BIT LEFT 



j SHI FT "TEST" VALUE 
;ONE BIT LEFT 

; RECYCLE UNTIL RFPA IS 
COMPLETELY VOIDED 



jDEC RESULT EXPONENT SINCE 
;DI VISOR WAS > DIVIDEND 

; RECYCLE IF NOT ZEROED 
I ELSE OVERFLOW ERROR 

EXPONENT ADDITION OR SUBTRACTION 

lINIT FOR SUBTRACTION 
jHIDE NEXT INST WITH ? LD L* 
:INIT FOR ADDITION 



;TEST EXPONENT FOR ZERO 



L HAS 'FF' FROM DIV: »00' FROM MUL 
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091D 




ADD 






091E 




LD 






091 F 




RRA 


;BRING CARRY INTO BIT 


7 


0920 




XOR 






0921 




LD 


;P/U THE NEW EXPONENT 




0922 




JP 






0925 




ADD 






0927 




LD 






0928 




JP 


.-> pop HL P RET 




092B 




CALL 


; SWITCH SIGN BIT 




092E 




LD 






092F 


Z092F 


DEC 






0930 




RET 






0931 


Z0931 


CALL 






0934 




CPL 






0935 




POP 






0936 


Z0936 


OR 






0937 


Z0937 


POP 






0938 




JP 


;ZERO FPA1 




093B 


o t(- 3f ■& & •& 


JP 








^MULTIPLY FPA1 I 


3Y 10.0 














093E 


Z093E 


CALL 


;FPA1 -> RFPA 




0941 




LD 


;RET IF VALUE = 0,0 




0942 




OR 






0943 




RET 






0944 




ADD 


;MULT BY 4 




0946 




JP 






0949 




LD 






094A 




CALL 


|ADD ONCE TO MULT BY 5 


094D 




LD 


j INC FPA1 EXPONENT 




0950 




INC 


;MULT RESULT BY 2 = X 


10 


0951 




RET 


; RETURN IF IT DID NOT 


GO 


0952 


9 


JP 


|FR0M FF TO 00, ELSE E 


ERRO 




; ROUTINE CHECKS 


FPA1 FOR MINUS, ZERO, PLUS 






j> 


RETURNS 


-1, 0, +1 






s 








0955 


CKRMZP 


LD 


; RETURN IF EXPONENT = 





0958 




OR 






0959 




RET 






095A 




LD 


;GET SIGN BIT 




095D 




DEFB 


OFEH ;HIDE NEXT INST WITH ' 


'CP f 


095E 


Z095E 


CPL 






095F 


Z095F 


RLA 


|SIGN BIT -> CARRY FLAG 


0960 


Z0960 


SBC 


;CONVERT TO -1 OR +1 




0961 




RET 






0962 




INC 






0963 




RET 
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jINIT 


RFPA WITH 


128.0 




.#-&#** 
f 






0964 
0966 


Z0964 


LD 
LD 




0969 


Z0969 


LD 




096C 




LD 




096D 




LD 




096E 




LD 




0970 




INC 




0971 




LD 




0973 




RLA 




0974 




JP 





I N IT RFPA WITH 128.0 



J INITIAL PROCESSING OF ABS(X) 



0977 


ABS 


CALL 


097 A 




RET 


097B 


Z097B 


RST 


097C 




JP 


097F 




JP 


0982 


Z0982 


LD 


0985 




LD 


0986 




XOR 


0988 




LD 


0989 




RET 



jTEST FOR +, 0, - 
; RETURN I F + OR 
; CHECK TYPE 



jCPL SIGN BIT OF FPA1 



•INITIAL PROCESSING OF SGN(X) 

; RETURN VALUE (-1 , 0, +1 ) IN 



NTEGER ACCUM 









098A 


SGN 


CALL 


098D 


XPNDCF 


LD 


098E 




RLA 


098F 




SBC 


0990 




LD 


0991 


.***#* 
? 


JP 




; VALUE 


TESTING FOR ABS 




.***##■ 
f 




0994 


Z0994 


RST 


0995 




JP 


0998 




JP 


099B 




LD 


099E 




LD 


099F 




OR 


09A0 




RET 


09A1 




LD 


09A2 




JR 



jTEST VALUE 

; PLACE -1, 0, OR +1 -> L 

j ZERO OUT IF ZERO OR + 

jMAKE FF IF MINUS 

;THEN LOAD INTO H 

jCHANGE TYPE TO INT & HL -> ACCUM 

& SGN 



;JUMP IF SGL OR DBL 
;GET INTEGER 
?RET IF ZERO 



;HIGH ORDER BYTE TO A 



I TRANSFER FPA1 TO STACK 
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09A4 


STKFP1 


EX 


09A5 




LD 


09A8 




EX 


09A9 




PUSH 


09AA 




LD 


09AD 




EX 


09AE 




PUSH 


09AF 




EX 


09B0 


.##### 
t 


RET 




; TRANSFERS SNGL POINTED TO BY HL INTO FPA1 








09B1 


HLFPA1 


CALL 


09B4 


SNGFPA 


EX 


09B5 




LD 


09B8 




LD 


09B9 




LD 


09BA 




LD 


09BD 




EX 


09BE 


.##### 
i 


RET 




; TRANSFER FPA1 (OR VALUE POINTED TO BY HL) INTO Rl 








09BF 


LDFPA1 


LD ;LD FPA1 -> EDCB REGS 


09C2 


LDFPHL 


LD ?LD (HL) -> EDCB REGS 


09C3 




INC 


09C4 




LD 


09C5 




INC 


09C6 




LD 


09C7 




INC 


09C8 




LD 


09C9 


Z09C9 


INC 


09CA 


.##*#* 

j 


RET 




; TRANSFER FPA1 TO MEMORY POINTED TO BY HL 




.x**** 
t 




09CB 


FPAMEM 


LD jTRANSFER FPA1 TO MEMORY 


09CE 




LD ; POINTED TO BY HL 


09D0 




JR 




TRANSFERS DATA VALUE FROM (DE) TO (HL) DEPENDING 




jOR FROM (HL) TO (DE) DEPENDING ON ENTRY POINT 




.##### 
f 




09D2 


Z09D2 


EX ; TRANSFER »TYPE ? BYTES 


09D3 


MOVDAT 


LD |FROM (HL) -> (DE) 


09D6 




LD 


09D7 


Z09D7 


LD 


09D8 




LD 


09D9 




INC 



RFPA 



ON TYPE 
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09DA 


INC 


09DB 


DEC 


09DC 


JR 


09DE 


RET 



Salter sign bit of floating point values 

jRESULTANT SIGN BIT IN A IS 1 IF BOTH + OR BOTH - 
; SIGN BIT IS IF BOTH UNEQUAL SIGN 



;PT TO MSB 

|SET THE SIGN BIT 





.*##** 
t 




09DF 


Z09DF 


LD 


09E2 




LD 


09E3 




RLCA 


09E4 




SCF 


09E5 




RRA 


09E6 




LD 


09E7 




CCF 


09E8 




RRA 


09E9 




INC 


09EA 




INC 


09EB 




LD 


09EC 




LD 


09ED 




RLCA 


09EE 




SCF 


09EF 




RRA 


09F0 




LD 


09F1 




RRA 


09F2 




XOR 


09F3 




RET 




1 VARIOUS DAT 




9 




09F4 


Z09F4 


LD 


09F7 


Z09F7 


LD 


09FA 




JR 



;& REPL MSB 



I PLACE ORIG MSB BUT WITH A 
I COMPLEMENTED SIGN BIT 
;INTO ADDR 4125H 
;SET SIGN BIT OF VAR2 



;& REPL MSB 



I VARIOUS DATA TRANSFERS FROM VARIABLE TABLES TO ACCUMULATOR 
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.##### 



;S INGLE PRECISION COMPARISONS 



OAOC 

OAOD 

OAOE 

0A11 

0A14 

0A15 

0A18 

0A19 

0A1A 

0A1D 

0A1E 

0A1F 

0A20 

0A23 

0A24 

0A25 

0A26 

0A27 

0A28 

0A29 

0A2A 

0A2B 

0A2C 

0A2D 

0A2E 

0A2F 

0A30 

0A31 

0A32 

0A33 

0A34 

0A35 

0A36 

0A37 

0A38 



0A39 
0A3A 
0A3B 
0A3C 
0A3F 



CPRSNG 



-1 



+1 



IF 
IF 
IF 



FPA1 < 
FPA1 = 
FPA1 > 



LD 

OR 

JP 

LD 

PUSH 

CALL 

LD 

RET 

LD 

XOR 

LD 

RET 

CALL 
Z0A23 RRA 

XOR 

RET 
Z0A26 I NC 

LD 

CP 

FRET 

DEC 

LD 

CP 

RET 

DEC 

LD 

CP 

RET 

DEC 

LD 

SUB 

RET 

POP 

POP 

RET 

•INTEGER COMPAR 

CPR I NT LD 
XOR 
LD 
JP 
CP 



RFPA 
RFPA 
RFPA 



SONS 



j IF RFPA IS ZERO, THEN RESULT 
;IS BASED ON FPA1 »S SIGN 

;ELSE STACK RET TO -1/+1 RTN 

; WHICH WILL SET THE RESULT 

;TEST SIGN OF FPA1 

;LOAD SIGN BYTE OF RFPA 

I IF FPA1 IS ZERO, RESULT IS 

;BASED ON RFPA'S SIGN, ELSE 

;TEST IF EXACTLY ONE VAR IS 

jNEGATIVE (VIA EXCL OR) 

; I F SO, THEN RESULT BASED ON RFPA 

I ELSE COMPARE EACH BYTE 

;WILL RET HERE IF UNEQUAL 

|XOR C-FLG OF RESULT WITH 

;RFPA ? S SIGN & EXIT 

I COMPARE EACH BYTE OF FPA1 

;WITH EACH BYTE OF RFPA 

;CPR EXPONENTS 



jCPR HI ORDER MANTISSA 



jCPR MID MANTISSA 



;CPR LOW ORDER MANTISSA 



I IF NONE DIFFER, THEY ARE EQUAL! 
I POP OFF THE RET CODES AS 
I RESULT IS CORRECTLY ZERO 



;TEST IF ONE VAR IS NEGATIVE 

;BY EXCL OR THE SIGNS 

j I NIT TO CPR ON HL ONLY 

;IF ONE NEG, THEN RESULT BASED 

;ON SIGN OF HL, ELSE CPR 
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0A40 
0A43 
0A44 
0A45 
0A48 



0A49 

0A4C 

0A4F 

0A52 

0A53 

0A54 

0A57 

0A5A 

0A5B 

0A5E 

0A5F 

0A60 

0A61 

0A62 

0A65 

0A66 

0A67 

0A68 

0A69 

0A6A 

0A6C 

0A6D 

0A6E 

0A71 

0A72 

0A73 

0A74 

0A76 

0A77 

0A78 

0A7B 

0A7E 



0A7F 
0A80 
0A83 
0A84 
0A87 
0A8A 
0A8D 



JP 

LD 

SUB 

JP 

RET 

Jdouble precision 

LD 

CALL 
Z0A4F LD 

LD 

OR 

JP 

LD 

PUSH 

UALL 

DEC 

LD 

LD 

RET 

LD 

XOR 

LD 

RET 

INC 

INC 

LD 
Z0A6C LD 

SUB 

JP 

DEC 

DEC 

DEC 

JR 

POP 

RET 
CPRDBL CALL 

JP 

RET 

•PROCESS CINT(X) 



H ORDER, THEN LO ORDER 
F NECESSARY 



COMPARISONS 



CINT 



RST 

LD 

RET 

JP 

CALL 

LD 

PUSH 



;TEST FPA2 FOR ZERO 

I IF FPA2 = ZERO, THEN RESULT 
jBASED ON SIGN OF FPA1 
j STACK RET TO +1/-1 RTN 

;TEST SIGN OF FPA1 

;PT TO SIGN BYTE OF FPA2 

;& PUT IT INTO REG C 

; IF FPA1 IS ZERO, THEN RESULT 

;BASED ON FPA2 ? S SIGN 

;ELSE EXCL OR THE SIGNS TO 

;SEE IF ONE VAR IS NEGATIVE 

I IF EXACTLY ONE IS NEGATIVE 

I RESULT BASED ON FPA2 ? S SIGN 

lELSE POINT DE & HL TO THE 

I EXPONENT BYTE TO CPR 8 BYTES 

I I NIT LOOP CTR FOR 8 BYTES 
jCOMPARE EACH BYTE IN TURN 

lEXIT IF UNEQUAL 
I ELSE DEC PTRS 

;& DEC THE LOOP COUNTER 

I CYCLE IF MORE 

;ALL ARE SAME, REMOVE RET TO 

;095EH & EXIT AS RESULT IS ZERO 

;INIT CALL TO CPR, IF UNEQUAL, 

;CVRT RESULT TO -1 OR +1 

lELSE RET WITH ZERO 



;CK TYPE 

; RETURN IF INTEGER 

iCVRT DBL TO SNGL 

I ESTABLISH RETURN IN CASE 
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0A8E 


Z0A8E 


LD 






0A91 




CP 


;CK IF > 32768 




0A93 




JR 






0A95 




CALL 






0A98 




EX 






0A99 


Z0A99 


POP 






0A9A 


SAVINT 


LD 






0A9D 




LD 


jCHG TYPE TO INTEGER 




0A9F 


SET I NT 


LD 






0AA2 




RET 






0AA3 


Z0AA3 


LD 


j -32768 




0AA6 




LD 






0AA9 




CALL 






OAAC 




RET 






OAAD 




LD 






OAAE 




LD 






OAAF 


9 


JR 








5 PROCESS CSNG(X) 
















0AB1 


CSNG 


RST 






0AB2 




RET 


; RETURN IF SNGL 




0AB3 




JP 


; JUMP IF INTEGER 




0AB6 




JP 


5 ERR IF NOT DBL 




0AB9 


DBLSNG 


CALL 


iCVRT DBL TO SNGL FIRST 




OABC 




CALL 






OABF 




LD 


jTEST FOR ZERO 




OACO 




OR 






OAC1 




RET 






0AC2 




CALL 






0AC5 




LD 






0AC8 




LD 






0AC9 




JP 






OACC 


ZOACC 


LD 


,-CVRT INTEGER TO SNGL 




OACF 


ZOACF 


CALL 


;CHG TYPE TO SNGL 




0AD2 




LD 






0AD3 




LD 






0AD4 




LD 






0AD6 




LD 


;32768 




0AD8 


9 


JP 








1 PROCESS CDBL(X) 








9 








OADB 


CDBL 


RST 


j RET IF DBL 




OADC 




RET 






OADD 




JP 


;IF STRING 




OAEO 




CALL 


5 CALL IF INT 




0AE3 


Z0AE3 


LD 


j ZERO THE EXTENDED PART OF 


FPA1 


0AE6 




LD 






0AE9 




LD 
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OAEC 


SETDBL 


LD 


iCHANGE TYPE TO DBL 


OAEE 




DEFB 1 


;HIDE NEXT INST WITH «LD BC« 


OAEF 


SETSNG 


LD 


j CHANGE TYPE TO SNGL 


0AF1 


.##*## 

$ 


JP 






j CHECK 


TYPE OF CURRENT 


VARIABLE & PROVIDE TM ERROR IF STRING 




9 






OAF 4 


CHKSTR 


RST 


j ROUTINE CHECKS CURRENT VARIABLE 


0AF5 




RET 


;FOR STRING, RET IF OK ELSE ERROR 


0AF6 


TMERR 


LD 


;TYPE MISMATCH ERROR 


0AF8 


.****# 
t 


JP 






jLD B,C 


:,D,E WITH REG. 


A 




.##**# 
t 






OAFB 


ZOAFB 


LD 




OAFC 




LD 




OAFD 




LD 




OAFE 




LD 




OAFF 




OR 




OBOO 




RET 


|RET IF ZERO RFPA 


OB01 




PUSH 




0B02 




CALL 


;FPA1 TO RFPA 


0B05 




CALL 




0B08 




XOR 




0B09 




LD 




OBOA 




CALL 


1 REDUCE BCDE BY ONE 


OBOD 




LD 




OBOF 




SUB 




OB10 




CALL 


iSHIFT RIGHT "A" BITS 


0B13 




LD 




0B14 




RLA 




OB15 




CALL 


; IF H NEG, THEN ADD 1 TO RFPA 


0B18 




LD 




OB1A 




UALL 


jTWOS COMP THE RFPA 


OB1D 




POP 




OB1E 




RET 




OB1F 


ZOB1F 


DEC 


j REDUCE "BCDE" BY 1 


0B20 




LD 


|TEST IF DE WENT FROM 


0B21 




AND 


;0000 TO FFFF 


0B22 




INC 


; IF SO, THIS IS 


0B23 




RET 


|RET IF NOT SO 


0B24 




DEC 


,-ELSE DEC BC FOR CARRY 


0B25 




RET 






iPROCESS FIX(X) 






.##**# 

9 






0B26 


FIX 


RST 


;RET IF INT 


0B27 




RET 




0B28 




CALL 




0B2B 




JP 
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0B2E 
0B31 
0B34 



0B37 
0B38 
0B39 
0B3B 



0B3D 
0B40 
0B43 
0B44 
0B46 
0B49 
0B4A 
0B4B 
0B4E 
0B50 
0B51 
0B52 
0B53 
0B54 
0B57 
0B58 



0B59 
0B5C 
0B5D 
0B5F 
0B62 
0B64 
0B65 
0B66 
0B67 
0B69 
0B6B 
0B6C 
0B6D 
0B6E 
0B70 
0B71 
0B74 



CALL 
CALL 
JP 



;CHG SIGN BIT FM M TO P 
COMPLEMENT THE INTEGER 



•PROCESS 
INT 



NT(X) 



RST 
RET 
JR 
JR 



j RETURN IF INTEGER 
;JUMP IF DOUBLE 
: IF STRING 






;FIND INTEGER PART OF SINGLE PRECISION 
; ENTER AT 0B40H TO TAKE INKFPA1) 



• ■& , X"& , ft , }f 



Z0B40 



•FIND 
INTDBL 



Z0B6B 



CALL 

LD 

LD 

CP 

LD 

RET 

LD 

CALL 

LD 

LD 

PUSH 

LD 

RLA 

CALL 

POP 

RET 



;FIND CI NT OF SNGL 



;LD FPA1 EXPo INTO A 
jPUT EXP. INTO B,C,D, & E 



;TWO ? S COMP RFPA THEN NORMALIZE 



NTEGER PART OF DOUBLE PRECISION 



LD 

LD 

CP 

JP 

JR 

LD 

DEC 

LD 

XOR 

LD 

DEC 

OR 

DEC 

JR 

OR 

LD 

JP 



EXP 



;LD HL WITH ADDR OF FPA1 

;LD EXP TO ACCUM 

;VAL WITHIN RANGE OF INTEGER, CINT 



;LD FIRST BYTE MANTISSA 

;FLIP SIGN BIT 

j SET-UP FOR 6-BYTES OF MANTISSA 



lLOOP UNTIL DONE 
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0B77 




LD 




0B78 


Z0B78 


CP 




0B7A 




RET 




0B7B 


Z0B7B 


PUSH 




0B7C 




CALL 


;FPA1 -> RFPA 


0B7F 




CALL 




0B82 




XOR 




0B83 




DEC 




0B84 




LD 




0B86 




PUSH 




0B87 




CALL 




0B8A 




LD 




0B8D 




LD 




0B8F 




SUB 




0B90 




CALL 


iSHIFT RIGHT "A" BITS 


0B93 




POP 




0B94 




CALL 


; INC DBL BY ONE 


0B97 




XOR 




0B98 




LD 




0B9B 




POP 




0B9C 




RET 




0B9D 




JP 


;TWO f S COMPLEMENT 


OBAO 


ZOBAO 


LD 




0BA3 


Z0BA3 


LD 




0BA4 




DEC 




0BA5 




OR 




0BA6 




INC 




0BA7 




JR 




0BA9 




RET 





•CALCULATION OF NUMBER OF BYTES USED IN A DIMENSION 
MULTIPLIES DE (TYPE LENGTH) BY BC (DIM) RESULT IN DE 











OBAA 




PUSH 




OBAB 




LD 




OBAE 




LD 




OBAF 




OR 




OBBO 




JR 


lJUMP IF DIM IS ZERO 


0BB2 




LD 


lESTAB LOOP LIMIT 


0BB4 


Z0BB4 


ADD 




0BB5 




JP 


jOVERFLOW ERROR 


0BB8 




EX 


jADD DE+DE -> DE 


0BB9 




ADD 




OBBA 




EX 




OBBB 




JR 




OBBD 




ADD 




OBBE 




JP 


lOVERFLOW ERROR 


OBC1 


ZOBC1 


DEC 




0BC2 




JR 




0BC4 


Z0BC4 


EX 
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0BC5 




POP 




0BC6 


9 


RET 






; INTEGER SUBTRACTION 






f 






0BC7 


SUB I NT 


LD 


jOBTAIN SIGN BIT & 


0BC8 




RLA 


1 PL ACE IN REG B 


0BC9 




SBC 




OBCA 




LD 




OBCB 




CALL 


;HL -> FPA1 


OBCE 




LD 


; ZERO REG A 


OBCF 




SBC 




OBDO 


9 


JR 


;NOW ADD 




1 INTEGER ADDITION 






9 






0BD2 


ADD INT 


LD 


lOBTAIN SIGN BIT & 


0BD3 




RLA 


1 PL ACE IN REG B 


0BD4 




SBC 




OBD5 


Z0BD5 


LD 




0BD6 




PUSH 


iSAVE VALUE 


0BD7 




LD 


fSIGN BIT -> REG A 


0BD8 




RLA 




0BD9 




SBC 




OBDA 




ADD 


|ADD VAL2 TO VAL1 


OBDB 




ADC 




OBDC 




RRCA 




OBDD 




XOR 




OBDE 




JP 


^RESULT TO FPA1, TYPFLG=2 




1 ADDITION OVERFLOWED 


INTEGER LIMITS, CONVERT TO S 




9 






OBE1 




PUSH 




0BE2 




EX 


;VAL2 -> HL 


0BE3 




CALL 


|CVRT VAL2 TO SNGL 


0BE6 




POP 




0BE7 




POP 


|RCVR VAL1 


0BE8 




CALL 




OBEB 




EX 




OBEC 




CALL 




OBEF 


9 


JP 


1 STACK -> RFPA -> ADDSNG 




1 INTEGER MULTIPLICATION 




V 






0BF2 


MUL 1 NT 


LD 


?TEST FOR ZERO VALUE 


0BF3 




OR 




0BF4 




JP 


;HL -> FPA1, TYPFLG -> 2 


0BF7 




PUSH 


jSAVE VAL1 


0BF8 




PUSH 


iSAVE VAL2 


0BF9 




CALL 


;MAKE SURE BOTH VALS ARE + 
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OBFC 




PUSH 


OBFD 




LD 


OBFE 




LD 


OBFF 




LD 


0C02 




LD 


0C04 


Z0C04 


ADD 


0C05 




JR. 


0C07 




EX 


0C08 




ADD 


0C09 




EX 


OCOA 




JR 


OCOC 




ADD 


OCOD 




JP 


OC10 


ZOC10 


DEC 


0C11 




JR 


0C13 




POP 


0C14 




POP 


0C15 




LD 


0C16 




OR 


0C17 




JP 


OC1A 




POP 


0C1B 




LD 


OC1C 




JP 


0C1F 


ZOC1F 


XOR 


0C21 




OR 


0C22 




JR 


0C24 




EX 


0C25 




DEFB 


0C26 


Z0C26 


POP 


0C27 




POP 


0C28 




CALL 


0C2B 




POP 


0C2C 




CALL 


0C2F 




CALL 


0C32 


Z0C32 


POP 


0C33 




POP 


0C34 




JP 


0C37 


Z0C37 


LD 


0C38 




OR 


0C39 




POP 


0C3A 




JP 


0C3D 




PUSH 


0C3E 




CALL 


0C41 




POP 


0C42 




JP 


0C45 


Z0C45 


LD 


0C46 




XOR 


0C47 




LD 


0C48 




CALL 


0C4B 




EX 



; RESULT SIGN SAVED IN B 

I NOW MULTIPLY ML BY DE 

; RESULT IN HL (BOTH VALS 

;ARE POSITIVE). IN IT TO 

;INIT FOR 16 BITS 

; SHI FT MULTIPLICAND 

;TEST FOR OVERFLOW 

;SHIFT MULTIPLIER 1 BIT LEFT 

;BY ADDING IT TO ITSELF. 

I IF A 1-BIT IS NOT SHIFTED INTO 

;THE CARRY, RECYCLE, ELSE 

;ADD IN AN ' HL » THEM 

;TEST FOR OVERFLOW 

; REDUCE BIT COUNTER 

j LOOP IF MORE TO DO 

; RESTORE REGS 

;TEST RESULT FOR OVERFLOW 

I INTO NEGATIVE (BIT 7 SET) 

^OVERFLOW IF BIT 7 SET 

;ELSE RESTORE REG 

I PUT SIGN BACK INTO REG A 

j& EXIT 

°TURN OFF SIGN BIT OF NEG RESULT 



;HIDE NEXT 2 INST WITH s LD BC 9 
MULTIPLICAND OVERFLOWED 

;CVRT VAL TO SNGL 

;& STACK IT AWAY 

;CVRT OTHER VAL TO SNGL 

I RESTORE STACKED VAL 

I NOW MULTIPLY SINGLE 



|CHG TYPE TO INT & HL -> ACCUM 
;CVRT VAL TO SNGL 



lEXCL OR SIGN BITS 
;& SAVE IN REG B 

;MAKE VAL IN HL POSITIVE IF NOT 
;MAKE VAL IN DE POSITIVE IF NOT 
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0C4C 
0C4D 
0C4E 
0C51 
0C52 
0C53 
0C54 
0C55 
0C56 
0C57 
0C58 



0C5B 
0C5E 
0C61 
0C62 
0C64 
0C65 
0C66 
0C67 
0C6A 
0C6B 
0C6D 



0C70 
0C73 
0C74 
0C76 



0C77 
0C7A 
0C7B 
0C7C 
0C7D 
0C7E 
0C7F 
0C80 
0C83 
0C84 
0C85 
0C88 
0C89 
0C8B 
0C8C 



Z0C4C LD 
Z0C4D OR 

JP 
Z0C51 XOR 

LD 

SUB 

LD 

LD 

SBC 

LD 

JP 

•PROCESS ABSOLUTE 



;IF THE VAL IS POSITIVE, 
jSAVE IT IN FPA1 
I AS AN INTEGER RESULT 
lELSE CVRT IT TO POSITIVE 
jBY TAKING THE TWO'S 
COMPLEMENT OF HL 



;THEN SAVING THE INTEGER RESULT 
VALUE OF AN INTEGER 



ABSINT 



Z0C6B 



LD 

CALL 

LD 

XOR 

OR 

RET 

EX 

CALL 

XOR 

LD 

JP 



;P/U INTEGER 
; COMPLEMENT IT 



|CHG TYPE TO SNGL 



•DOUBLE PRECISION 

SUBDBL LD 
LD 
XOR 
LD 

; DOUBLE PRECISION 

t 

ADDDBL LD 
LD 
OR 
RET 
LD 
DEC 
LD 
LD 
LD 
OR 
JP 
SUB 
JR 
CPL 
INC 



SUBTRACTION 

; CHANGE SIGN OF FPA2 
jCHANGE SIGN, THEN ADD 

ADDITION 



I RETURN IF FPA2 IS ZERO 

;AS FPA1 WOULD HAVE THE 

lANSWER 

I SAVE THE EXPONENT IN B 

;P/U HIGH BYTE (CONTAINS SIGN) 
I IF FPA1 IS ZERO, THEN 
;SWAP FPA2 WITH FPA1 AS 
JFPA2 WOULD BE THE ANSWER 

;GET DIFF IN EXPONENTS 
;JUMP IF FPA2 < FPA1 
;CVRT EXPON DIFF TO + 
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SET LOOP FOR 8 BYTES 



I DEC CTR & CYCLE IF MORE 

^RECOVER 41 2E 
j EXPON -> B 

;S\GH BYTE -> C 



I EXCHANGE FPA1 & FPA2 

0C8D ' PUSH 

0C8E LD 

0C90 I NC 

0C91 PUSH 

0C92 AD1 LD 

0C93 LD 

0C94 LD 

0C95 LD 

0C96 LD 

0C97 DEC 

0C98 DEC 

0C99 DEC 

0C9A JR 

0C9C POP 

0C9D LD 

0C9E DEC 

0C9F LD 

OCAO POP 

•DON'T ADD IF THE DIFFERENCE BETWEEN VALUES 

OCA1 ZOCA1 CP 

0CA3 RET 

0CA4 PUSH 

0CA5 CALL 

0CA8 I NC 

0CA9 LD 

OCAB LD 

OCAC POP 

OCAD LD 

OCBO CALL 

0CB3 LD 

0CB6 LD 

0CB9 LD 

OCBA OR 

OCBB JP 

OCBE CALL 

OCC1 JP 

0CC4 EX 

0CC5 I NC 

0CC6 JP 

0CC9 CALL 

OCCC JP 



> 10**17 



1 2** 57 APPX 10**17 



iTURN ON SIGN BITS 
;PT TO 4126H & ZERO IT 



;DIV VAR1 MANTISSA BY THE 
;DIFF IN EXPONENTS 

jTEST RESULT OF SIGNS 

j JUMP IF SIGN BITS WERE <> 
I ADD DBL (HL) TO (DE) 
I INC EXPON IF ADD OVERFLOWED 
;PT TO EXPON AND ADD 1 DUE 
;T0 CARRY ON MANTISSA ADD 
I ERROR IF EXPON ADD -> 
;DI VIDE MANTISSA BY 2 FOR 
lEXPONENT INCREASE 



OCCF 



; SUBTRACT ONE NUMBER FRON' 
ZOCCF CALL 



ANOTHER WHEN 'SIGNS' ARE <> 



SUB DBL (HL) FROM (DE) 
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0CD2 




LD 


0CD5 




CALL 


0CD8 


Z0CD8 


XOR 


0CD9 


DSHFT8 


LD 


OCDA 




LD 


OCDD 




OR 


OCDE 




JR 


OCEO 




LD 


0CE3 




LD 


OCE5 


DLOOP8 


LD 


0CE6 




LD 


0CE7 




LD 


0CE8 




IMC 


0CE9 




DEC 


OCEA 




JR 


OCEC 




LD 


OCED 




SUB 


OCEF 




CP 


OCF1 




JR 


0CF3 




JP 




1 DBL PREC S 




9 




0CF6 


DSHFT1 


DEC 


0CF7 




LD 


OCFA 




CALL 


OCFD 




OR 


OCFE 


DCHKP 


JP 



OD01 
0D02 
0D03 



0D05 
0D08 
0D09 
ODOA 
ODOD 



ODOE 
OD11 
0D12 
0D15 



I TWO'S COMP FPA1 

j SET SHIFT CTR TO ZERO 

; SET SHIFT CTR FROM ACCUM 

I IF HIGH BYTE IS ZERO, 

;SHIFT LEFT 8 BITS 

;ELSE BYPASS 8-BIT SHIFTER 

;PT TO LOW-1 

;INIT BYTE COUNTER 

,-SHIFT FPA1 DBL LEFT 8 BITS 



;DEC THE BYTE CTR 

;P/U THS SHIFT CTR 

;& COUNT IT DOWN BY 8 

;IF MANTISSA WAS NOT SHIFTED 

|OUT OF FPA1, THEN CYCLE 

? ELSE ZERO FPA1 & GO HOME 



jSHIFT 1 BIT LEFT UNTIL 
:THE SIGN BIT GOES TO 1 



NTO THE SIGN POSITION 

;P/U THE SHIFT COUNTER 

;SEE IF SHIFTING HAD OCCURED 



I A 1 HAS SHIFTED 
■> 

LD 

OR 

JR 

• •& & % •& & 

I THE NBR HAD TO BE SHIFTED TO BE NORMALIZED. 
I CORRECT THE EXPONENT. 

3 

LD | ADD THE SHIFT COUNTER 

ADD ;WHICH IS NEGATIVE, TO 

LD ;FPA1 f S EXPONENT 

JP |ZERO FPA1 IF SHIFT < EXPON 

RET | RET WITH FPA1=0 IF SHIFT=EXPON 

; SHIFT WAS GREATER THAN EXPONENT 

ZODOE LD 

ZOD11 OR -IS BIT 7 SET? 

CALL | INC FPA1 BY 1 

LD 



IF IT IS 
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0D18 




LD 


0D19 




AND 


0D1B 




DEC 


0D1C 




DEC 


0D1D 




XOR 


0D1E 




LD 


0D1F 


.*##*# 
t 


RET 




j INCREMENT DBL 




t 




0D20 


I NCDBL 


LD 


0D23 




LD 


0D25 


DL00P7 


INC 


0D26 




RET 


0D27 




INC 


0D28 




DEC 


0D29 




JR 


0D2B 




INC 


0D2C 




JP 


0D2F 




DEC 


0D30 




LD 


0D32 




RET 




1 ADD DBL PREC 








0D33 


DAF1F2 


LD 


0D36 


DAF1HL 


LD 


0D39 


DADEHL 


LD 


0D3B 




XOR 


0D3C 


DA1 


LD 


0D3D 




ADC 


0D3E 




LD 


0D3F 




INC 


0D40 




INC 


0D41 




DEC 


0D42 




JR 


0D44 


.*#### 
f 


RET 




1 SUBTRACT DBL 








0D45 


DSF1F2 


LD 


0D48 


DSF1HL 


LD 


0D4B 


DSDEHL 


LD 


0D4D 




XOR 


0D4E 


DS1 


LD 


0D4F 




SBC 


0D50 




LD 


0D51 




INC 


0D52 




INC 


0D53 




DEC 



jP/U THE PROCESSED SIGN BITS 
j& STRIP OFF ALL BUT THE SIGN 

;PT TO FPA1 «S SIGN BYTE 

:& INSERT IN THE CORRECT SIGN 



PREC FPA1 BY 1 



I SET CTR FOR MANTISSA BYTES 

1 1 NC THE BYTE 

;RET IF NO ? CARRY 1 

;ELSE PT TO NEXT BYTE 

;DEC THE BYTE CTR & CYCLE IF MORE 

I INC THE EXPONENT & ERROR 

I IF IT OVERFLOWED 

jPUT THE S SIGN« BIT 1 BACK 



MANTISSA HL TO DE 



I ADD FPA2 TO FPA1 
I ADD (HL) TO FPA1 
|ADD (HL) TO (DE) 



PREC MANTISSA HL FROM DE 

I SUB FPA2 FM FPA1 
|SUB (HL) FM FPA1 
jSUB (HL) FM (DE) 
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0D54 
0D56 



0D57 
0D58 
0D59 
0D5A 
0D5D 
0D5F 
0D60 
0D61 
0D62 
0D63 
0D64 
0D65 
0D66 
0D68 



0D69 
0D6A 
0D6B 
0D6D 
0D6F 
0D70 
0D71 
0D74 
0D75 
0D76 
0D77 
0D78 
0D79 
0D7B 



0D7D 
0D7F 
0D80 
0D81 
0D82 
0D83 



0D84 
0D85 



JR 
RET 

• TW0 ? S COMPLEMENT THE DBL PREC FPA1 



Z0D60 
Z0D61 



D2SCMP LD 
CPL 
LD 
LD 
LD 
XOR 
LD 
LD 
SBC 
LD 
INC 
DEC 
JR 
RET 

I PERFORM A RIGHT CIRCULAR SHIFT OF A MANTISSA BASED ON REG- A 

DSHTR 



NVERT THE RESULT SIGN BIT 



; I N IT BYTE COUNTER 

I SET REG C 

I REFRESH ACCUM TO ZERO 

I COMPLEMENT A BYTE 

;PT TO NEXT BYTE 

iDEC BYTE CTR & CYCLE IF MORE 



LD 

PUSH 
DSHTR8 SUB 

JR 

POP 
Z0D70 PUSH 

LD 
Z0D74 LD 

LD 

LD 

DEC 

DEC 

JR 

JR 

; DBL PREC SINGLE BIT RIGHT SHIFTER 



; TEST FOR 8 OR MORE BITS 
I TO SHIFT 



;iNIT D TO 8, E TO 
: JUGGLE THE 8 BYTES 



;DEC BYTE CTR 
iCYCLE IF MORE BYTES 



Z0D7D ADD 

LD 
DSHTRS XOR 

POP 

DEC 

RET 

; DBL PREC SHIFT RIGHT *D ? BITS 

DSHTRD PUSH ;SAVE THE POINTER 

LD ilMIT FOR 8 BYTES 



ADD BACK THE 8 + 1 

I NIT THE SHIFT COUNTER 

ZERO A & REDUCE CTR 



iFINISHED WHEN CTR RUNS OUT 
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I SHI FT EACH BYTE ONE BIT 



jPT TO NEXT LOWER BYTE 
;DEC THE COUNTER 
lUNTIL 8 BYTES DONE 



0D87 Z0D87 LD 
0D88 RRA 
0D89 LD 
0D8A DEC 
0D8B DEC 
0D8C JR 
0D8E JR 

j DBL PREC SINGLE BIT SHIFT RIGHT (8-BYTES) 

0D90 DSHTR1 LD 

0D93 LD ;INIT FOR 1 BIT 

0D95 JR 

-DOUBLE PRECISION MULTIPLICATION 

0DA1 MULDBL CALL ;CHECK -,0 f + AND RETURN IF ZERO 

0DA4 RET 

0DA5 CALL |ADD THE EXPONENTS 



0DA8 




UALL 


ODAB 




LD 


ODAC 




INC 


ODAD 




LD 


ODAF 


ZODAF 


LD 


ODBO 




INC 


0DB1 




OR 


0DB2 




PUSH 


0DB3 




JR 


0DB5 




LD 


0DB7 


Z0DB7 


PUSH 


0DB8 




RRA 


0DB9 




LD 


ODBA 




CALL 


ODBD 




CALL 


ODCO 




LD 


ODC1 




POP 


0DC2 




DEC 


0DC3 




JR 


0DC5 


Z0DC5 


POP 


0DC6 




DEC 


0DC7 




JR 


0DC9 




JP 


ODCC 


ZODCC 


LD 


ODCF 




L»ALL 


ODD 2 




JR 




? FLOATING POINT DATA 




.##### 





I NIT FOR 7 BYTE MANTISSA 

PICKUP TEST BYTE AND POINT TO NEXT 



; BYPASS BIT CHECK IF BYTE IS ZERO 

I SET FOR 8 TIMES 

I SAVE COUNTER REGISTERS 

°SAVE ACCUM 

•ADD MANTISSA 2 TO MANTISSA 1 

|DBL SINGLE BIT SHIFT RIGHT (8 BYTES) 

I RESTORE ACCUM 

; RESTORE LOOP REGISTERS 

;DEC INNER LOOP REGISTER 

jLOOP IF NOT DONE 

I RECOVER POINTER TO BYTE 

I OUTER LOOP REGISTER 

lLOOP IF NOT DONE 

I NORMALIZE 

;LD FPA1 MANTISSA 

iRIGHT CIRCULAR BYTE SHIFT 

iCONTINUE LOOP 
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0DD4 
ODD 6 
0DD8 
ODDA 



ODDC 

ODDF 

0DE2 

0DE5 

0DE8 

0DE9 

ODEC 

ODEF 

ODFO 

ODF1 

0DF4 

0DF7 

0DF8 

0DF9 

ODFC 

ODFF 

0E02 

0E03 

0E04 

0E05 

0E07 

OEOA 

OEOD 

OE10 

OE11 

0E12 

0E13 

0E14 

0E17 

0E18 

0E19 

OE1A 

0E1D 

OE1E 

0E21 

0E23 

0E26 

0E29 

0E2C 

0E2D 

0E2E 

0E30 

0E33 



•DOUBLE 
ZODDC 



DIVDBL 



Z0DF9 



Z0E12 



DEFW OOOO ;10.0 (DOUBLE PRECISION) 

DEFW 0000 

DEFW 0000 | 10.0 (SINGLE PRECISION) 

DEFW 8420H 

PRECISION DIVISION ROUTINE 



LD 

LD 

CALL 

LD 

OR 

JP 

CALL 

INC 

INC 

CALL 

LD 

LD 

LD 

LD 

LD 

CALL 

LD 

SBC 

CCF 

JR 

LD 

LD 

CALL 

XOR 

DEFB 

LD 

INC 

LD 

INC 

DEC 

RRA 

JP 

RLA 

LD 

LD 

CALL 

LD 

CALL 

LD 

OR 

JR 

LD 

DEC 



;LD 10. OD 

;LD ADDRESS OF FPA1 

;MOVE 10. OD TO FPA2 

I LOAD FPA2 AND 

|TEST FOR ZERO 

|DIV BY ZERO ERR IF ZERO 

I EXPONENT SUBTRACTION 



I MOVE FPA2 TO DIVISION WORK AREA 



; SUBTRACT DBL MANTISSA (HL) FROM (DE) 



I ADD (HL) TO (DE) 
ODAH ;HIDE NEXT TWO INSTRUCTIONS W/JP C.0412H 



;LD ACCUM 1ST BYTE FPA1 MANTISSA 
;TEST ACCUM 



;JP IF ACCUM NEGATIVE 



I SET UP FOR 7 LOOPS 

?DBL PREC. SINGLE BIT SHIFT LEFT (7 BYTES) 

;POINT TO DIVISION WORK AREA 

;DBL PREC. SINGLE BIT SHIFT LEFT (8) 



;PT TO FPA1 EXP. 
;DEC EXPONENT 
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0E34 


JR 


0E36 


JP 


0E39 Z0E39 LD 


0E3A 


LD 


0E3D 


DEC 


0E3E 


LD 


0E41 


LD 


0E44 Z0E44 LD 


0E45 


LD 


0E46 


LD 


0E47 


DEC 


0E48 


DEC 


0E49 


DEC 


0E4A 


JR 


0E4C 


RET 



;JP OVERFLOW ERROR 



;MOVE FPA1 TO DIVISION WORK AREA 



0E4D 

0E50 

0E51 

0E52 

0E53 

0E54 

0E55 

0E57 

0E5A 

0E5B 

0E5C 

0E5F 

0E60 

0E61 

0E62 



0E65 
0E68 
0E6B 
0E6C 
0E6D 
0E6E 
0E71 
0E72 
0E73 
0E76 
0E77 
0E78 
0E7A 

0E7B 



I MULTIPLY A DOUBLE PRECISION VALUE BY 10.0 
Z0E4D CALL 



EX 

DEC 

LD 

OR 

RET 

ADD 

JP 

LD 

PUSH 

CALL 

POP 

INC 

RET 

JP 



I TRANS. FPA1 TO FPA2 
|PICK UP EXPONENT 



iMULTIPLY BY FOUR 

;IF C, OVER FLOW ERROR 



jADD DOUBLE PRECISION TO MULTIPLY BY 5 
MULTIPLY BY TWO TO MAKE MULTIPLY BY 10 
;OVER FLOW ERROR 



•ROUTINE ENTERED § 0E6C FROM PARSER WHEN FINDS DIGIT 

|ZERO FPA1 EXP. (ROUTINE ASCII TO BINARY) 

|CHG TYPFLG TO DOUBLE 

; NEXT INSTRUCTION ? OR 0AFH ! 



ASCBIN CALL 
CALL 
DEFB 
XOR 
EX 
LD 
LD 
LD 

CALL 
EX 
LD 
CP 
PUSH 

JP 



0F6H 
A 



I ZERO OUT HL 

iCALL IF FROM PARSER 

I GET TOKEN 

|IS "-" ? 

;SAVE TOKEN AND FLAG 
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0E7E 
0E80 
0E82 
0E83 
0E84 
0E87 
0E89 
0E8C 
0E8E 
0E90 
0E92 
0E95 
0E97 
0E9A 
0E9C 
0E9F 
OEM 
0EA3 



Z0E83 



CP 

JR 

DEC 

RST 

JP 

CP 

JP 

CP 

JR 

CP 

JP 

CP 

JP 

CP 

JP 

CP 

JR 

OR 



j IS "+» ? 

;BACK-UP TOKEN PTR 
j RE-GET TOKEN 
;JP IF DIGIT 
;IS IT "." ? 

j IS IT "E" ? 

j IS IT »%" ? (INTEGER) 

j IS IT "#" ? (DBL) 

;CONVERT TO DBL, INC HL,RET TO 0EC7H 

;IS IT "!" ? (SNG) 

jCONVERT TO SNG, INC HL,RET TO 0EC7H 

;IS IT "D" ? (DOUBLE) 



•NEXT CALL CONVERTS TO SINGLE IF ENTERED FROM "E". 
;OR TO DBL IF ENTERED FROM "D". 



I PUT OEBDH ON STACK FOR RET 

I GET NEXT TOKEN 

;"-" FUNCTION ? 

;"-" SIGN ? 

j"+» FUNCTION ? 

;"+" SIGN ? 

^BACKUP TOKEN PTR 









0EA4 


Z0EA4 


CALL 


0EA7 




PUSH 


0EA8 




LD 


OEAB 




EX 


OEAC 




RST 


OEAD 




DEC 


OEAE 




CP 


OEBO 




RET 


OEB1 




CP 


0EB3 




RET 


0EB4 




INC 


OEB5 




CP 


0EB7 




RET 


0EB8 




CP 


OEBA 




RET 


OEBB 




DEC 


OEBC 




POP 


OEBD 


ZOEBD 


RST 


OEBE 




JP 


OEC1 




INC 


0EC2 




JR 


0EC4 




XOR 


0EC5 




SUB 


0EC6 




LD 


0EC7 


Z0EC7 


PUSH 


0EC8 




LD 


0EC9 




SUB 


OECA 


ZOECA 


CALL 



iREGET TOKEN 
;JP IF DIGIT 



I IF POS., MULTIPLY BY 10 
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OECD 




CALL 


OEDO 




JR 


0ED2 




POP 


0ED3 




POP 


0ED4 




PUSH 


OED5 




CALL 


0ED8 




POP 


0ED9 




RST 


OEDA 




RET 


OEDB 




PUSH 


OEDC 




LD 


OEDF 




PUSH 


OEEO 




CALL 


0EE3 




RET 


0EE4 


Z0EE4 


RST 


0EE5 




INC 


0EE6 




JR 


0EE8 




CALL 


OEEB 




JP 


OEEE 


ZOEEE 


RST 


OEEF 




JP 


0EF2 


Z0EF2 


INC 


0EF3 




JR 


0EF5 


Z0EF5 


OR 


0EF6 


Z0EF6 


CALL 


0EF9 




JR 
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IF NEG., DIVIDE BY 10 



;FIND ABS 

; RETURN IF NOT INT. 



DETERMINE TYPE 

iCONVERT TO SNG 
iCHECK TOKEN TYPE 



•ROUTINE CONVERTS 



TO SINGLE (Z SET) OR DBL (NZ SET) 



OEFB 


ZOEFB 


PUSH 






j ENTER FROM 0EA5H,0EE8H, OR OEI 


OEFC 




PUSH 






iSAVE ALL REGISTERS 


OEFD 




PUSH 








OEFE 




PUSH 






j SAVE FLAG STATUS 


OEFF 




CALL 






j IF Z, CONVERT TO SNG 


0F02 




POP 






1 RESTORE FLAG 


OF 03 




CALL 






; IF NZ, CONVERT TO DBL 


OF 06 




POP 






j RESTORE REGISTERS 


OF 07 




POP 








0F08 




POP 








0F09 


.##•#*# 
t 


RET 










MULTIPLY FPA1 


BY 


10 






; EITHER 


SINGLE 


OR 


DOUBLE 




.#*#** 
t 










OFOA 


ZOFOA 


RET 






|RET IF Z 


OFOB 




PUSH 






iSAVE FLAGS 


OFOC 




RST 






|TEST TYPE FLAG FOR SGL OR DBL 


OFOD 




PUSH 








OFOE 




CALL 






iCALL IF SNG TO MULTIPLY BY 10 


OF 11 




POP 
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0F12 
OF 15 
OF 16 
0F17 



OF 18 
OF 19 
0F1A 
0F1B 
0F1C 
0F1D 
0F20 
OF 21 
0F24 
0F25 
0F26 
OF 27 
0F28 



0F29 
0F2A 
0F2B 
0F2C 
OF 2D 
0F2E 
0F2F 
0F30 
OF 32 
OF 33 
0F34 
OF 37 
0F3A 
OF 3D 
0F3E 
OF 40 
0F41 
OF 42 
OF 43 
OF 44 
OF 45 
OF 46 
0F47 
0F48 
0F49 
0F4A 
0F4B 



CALL 
POP 
DEC 
RET 



;CALL IF DBL TO MULTIPLY BY 10 
jADJUST ACCUM 



;DI V IDE FPA1 BY 10 EITHER SNG OR DBL 
DIVTEN 



PUSH 

PUSH 

PUSH 

RST 

PUSH 

CALL 

POP 

CALL 

POP 

POP 

POP 

INC 

RET 

•ROUTINE TO CONSTRUCT NUMBER FROM DIGITS PASSED 0E84H 

oft**** 

Z0F29 



;TEST TYPE 
iCALL IF SNG 
j CALL IF DBL 

; ADJUST ACCUM 



PUSH 

LD 

ADC 

LD 

PUSH 

PUSH 

LD 

SUB 

PUSH 

RST 

JP 

LD 

LD 

RST 

JR 

LD 

LD 

ADD 

ADD 

ADD 

ADD 

POP 

LD 

ADD 

LD 

OR 

JP 



;MAKE B NON-ZERO IF PARSER FOUND MORE 
|THAN ONE DECIMAL POINT 



;PICK UP THE DIGIT 
; CONVERT TO BINARY 
iSAVE FOR 0F46H 
;TEST TYPE FLAG 
I JP IF NOT INT 
jRECOVER INT FROM FPA1 
;INIT FOR MAX NUM. (/10) 
;CP INT 3277 
;JP IF GREATER 

•MULTIPLY 

; VAL IN REG. HL BY 10 



;PUT NEW DIGIT INTO REG C 
;ADD THE VALUE 
;TEST FOR OVERFLOW 

iCONVERT TO SNG IF INTEGER OVERFLOW 
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0F4E 
0F51 
0F52 
0F53 
0F54 



OF 57 
0F58 
0F59 
0F5C 
0F5D 
0F5F 
0F62 
0F65 
0F68 
0F6B 
0F6E 
0F6F 
0F72 



0F74 
0F77 
0F7A 
0F7D 
0F7E 
0F81 
0F84 
0F87 



0F89 
0F8C 
0F8F 
OF 90 
0F91 



OF 94 
OF 95 
OF 97 
0F99 
0F9A 
0F9B 
0F9C 



LD jELSE REPLACE INT IN FPA1 

Z0F51 POP 

POP 

POP 

JP ;G0 BACK TO RST 20H 

• •&•&•&■$(•■& 
•NUMBER OVERFLOWS INT. CONVERT TO SINGLE 



Z0F57 
Z0F59 
Z0F5D 



LD 

PUSH 

CALL 

SCF 

JR 

LD 

LD 

CALL 

JP 

CALL 

POP 

CALL 

JR 



; PL ACE DIGIT IN ACCUM 

; AND SAVE IT 

|CVRT INT. IN FPA1 TO SNG 

; JP IF CAME FROM 0F34H (IF NOT INT) 
;MOVE 1E+6 TO RFPA 

;CP SINGLE PREC. 
I JP IF FPA1 > 1E+6 
;MULT FPA1 BY 10 

|ADD DIGIT TO FPA1 



•NUMBER CONVERTS TO DOUBLE PRECISION IF > 1E+6 



Z0F74 
Z0F77 



CALL 

CALL 

CALL 

POP 

CALL 

CALL 

CALL 

JR 



iCLEAR EXTENDED FPA1 AND SET TYP TO 8 
|MULT DBL BY 10 
jFPA1 -> FPA2 

;CVRT DIGITS TO FLOATING PT IN FPA1 

?CLEAR EXTENDED FPA1 

;FPA2 + FPA1 -> FPA1 



^CONVERT DIGIT TO SINGLE AND ADD TO FPA1 

Z0F89 CALL ; STACK FPA1 

CALL | PUT DIGIT VAL AND CONVERT TO FLOATING PT 

POP | RECOVER STACKED VAL 

POP 

JP ;FPA1 + RFPA -> FPA1 

•ROUTINE TO CONVERT EXPONENT DIGITS TO A VALUE 
• ■&■ ■&■&■&■& 

Z0F94 LD ;PICK UP CURRENT EXPONENT 
CP 

JR iOVERFLOW IF >= 10 

RLCA I*** 

RLCA ;S INGLE BYTE MULTIPLY BY 10 

ADD ;*** 
RLCA 
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0F9D 
0F9E 
OFAO 
0FA1 

0FA2 
0FA4 



0FA7 
0FA8 
OFAB 
OFAE 
OFAF 
0FB2 
0FB3 
0FB6 
0FB7 
OFBA 



OFBD 
OFBE 



Z0FA2 



ADD 
SUB 
LD 
DEFB 

LD 
JP 



OFAH jHIDE NEXT INSTRUCTION WITH 
jA JP M,321EH 
j FORCE OVERFLOW ERROR (EXP TOO LARGE) 



***** 

ROUTINE TO PRINT OUT LINE NUMBER FOR TRON 

***** 



WRLNO 



PUSH 

LD 

CALL 

POP 

CALL 

XOR 

CALL 

OR 

CALL 

JP 



jPT TO " IN " 
I OUTPUT LINE 

j REG HL -> FPA1 

;ZERO PRINT USING FLAG 

; VIA THIS CALL 



;CVRT FPA1 TO ASCI I 
;AND PRINT OUT NUMBER 

.***** 

^PROCESSING OF DATA VALUES OUTPUT (FLTG PT, INT) 

; INCLUDES FORMATTING 

; ENTER AT OFBDH FROM 111DH, 20C0H (PRINT), 2836H (STR$) 

I ENTER AT OFBEH FROM 2DCEH (USING) 

• ***** 

BINASC XOR ; IN IT TO CLEAR USGFLG 

ASCUSG CALL ;INIT USGFLG WITH CONVENTS REG A 

o ***** 

•TEXT FOR USING "+" SPECIFIER 
.***** 

j"+" IS BIT 3 OF USGFLG 

jDON'T INIT '+ ! IF NOT SPECIFIED 

1 1 N IT WITH f + f 

iTEST IF POS OR NEG 

jSIGN FLAG SET AS TO SIGN 

;DE NOW HAS THE FPA1 INTEGER 

jBYPASS IF POSITIVE INTEGER 

jELSE INSERT »-» 

jTAKE ABS VALUE 



OFC1 


AND 


0FC3 


JR 


0FC5 


LD 


0FC7 Z0FC7 EX 


0FC8 


CALL 


OFCB 


EX 


OFCC 


JP 


OFCF 


LD 


OFD1 


PUSH 


0FD2 


PUSH 


0FD3 


CALL 


0FD6 


POP 


0FD7 


POP 


0FD8 


OR 


0FD9 Z0FD9 INC 


OFDA 


LD 


OFDC 


LD 


OFDF 


LD 


OFEO 


RLA 



I INSERT ASCI I ZERO 
;AT NEXT BUFFER POS 
jP/U USING CONTROL BYTE 

;SET CARRY IF BIT 7 ON 
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0FE1 




LD 




0FE4 




JP 




0FE7 




JP 




OFEA 




CP 




OFEC 




JP 




OFEF 




LD 




0FF2 




CALL 




0FF5 


Z0FF5 


LD 




0FF8 




LD 




0FF9 




LD 




OFFB 




LD 




OFFE 




LD 




OFFF 




AND 




1001 




JR 




1003 




LD 




1004 




CP 




1005 




LD 




1007 




JR 




1009 




LD 




100A 


Z100A 


LD 




100B 




RST 




100C 




JR 




100E 




CP 




1010 




JR 




1012 




CP 




1014 




JR 




1016 




CP 




1018 




JR 




101 A 




CP 




101C 




JR 




101 E 




CP 




1020 




JR 




1022 


Z1022 


DEC 




1023 




LD 




1025 


Z1025 


LD 




1026 




AND 




1028 




JR 




102A 




DEC 




102B 




LD 




102D 


Z102D 


LD 




102E 




AND 




1030 




RET 




1031 




DEC 




1032 




LD 




1033 


p 


RET 






^ROUTINE TO IN IT 


USGFLG 




.##■#*# 

p 






1034 


Z1034 


LD 




1037 




LD 





I JUMP IF USGFLG HAS BIT 7 ON 
I JUMP IF USGFLG OFF (NOT USING) 
I JUMP IF DBL OR SNGL 

;N0 COMMAS OR DEC PTS, NBR IS INTEGER 
iCONVERT INT IN FPA1 TO ASCII AT ASCBUF 

;P/U 1ST BUF CHAR (SPACE) 
j SPACE 

;TEST ; OR '*' FUNCTION 



IBYPASS IF NOT "*" 


SPECIFIED 


|XFR BUF CHAR TO A 




;CPR WITH SPACE 










jJUMP 


IF BUF CHAR NOT SPACE 


;REPL 


B WITH "*" 




|REPL 


BUF CHAR WITI- 


.] II#M 


;P/U I 


slEXT CHAR OR 




;JUMP 


IF AT END OF 


BUFFER 


j ? E ? ? 






p U . 






. fO f/ ? 






. f f ? 

9 P 







. t f ? 

I INSERT ASCI I ZERO 
;CK USGFLG FOR BIT 4 

;JP IF NOT SPECIFIED 
I INSERT FLOATING $ 

;CK USGFLG FOR BIT 2 

;RETURN IF SPECIFIED 

; INSERT »^ f 



jMOVE CONTENTS OF ACCUM TO USING FLAG 
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103A 
103C 



1C3D 
103F 
1040 
1042 
1043 
1044 
1045 
1048 
104B 
104C 
104F 
1050 
1051 
1053 
1054 
1055 
1057 
1059 
105A 
105B 
105E 
1060 
1063 
1066 
1067 
1068 
106A 
106C 
106E 
1071 
1072 
1074 
1075 
1076 
1078 
1079 
107A 
107B 
107C 
107E 
1081 
1083 
1084 
1085 
1087 



LD 
RET 

• ■£-&'&&-& 

•ROUTINE TO CONVERT 

• -5f •&■&•■&& 

Z103D CP 

PUSH 

SBC 

RLA 

LD 

INC 

CALL 

LD 

ADD 

JP 

INC 

CP 

JR 

INC 

LD B 

LD 
Z1057 SUB 

POP 

PUSH 

CALL 

LD 

CALL 

CALL 
Z1066 DEC 

LD 

CP 

JR 

CP 

CALL 

POP 

JR 
INSEXP PUSH 

RST 

LD 

ADC 

LD 

INC 

POP 

LD 

JP 

LD 

CPL 

INC 
Z1085 LD 
Z1087 INC 



SNGL OR DBL TO ASCI I 

j SET C FLAG IF SNGL 

j SAVE BUFFER POINTER 

j REDUCE TYPE LEN IF SNGL 

;MUL TYPE BY 2 

; INC THE RESULT BY 1 

jRESULT IS SNGL=7, DBL=17 

I CON VERT FPA1 TO PROPER RANGE 

j I NIT B=3 FOR DEC PTS 

jADD FIELD WIDTH TO # OF PLACES SHIFTED 

;JUMP IF SHIFTED > FIELD WIDTH 



I JUMP IF NBR > FIELD 
jSET B TO POSITION DEC PT 



I INSERT V OR "." IF NEEDED 
; INSERT ASCI I ZERO 
j INC HL, RET 
jCONVERT TO ASCI I 



IQ» 



. f 8 1 ? 

•INC HL, RET 

;TEST EXPONENT FOR OUTPUT 

I IF ZERO, DON'T; ELSE DO «E» OR »D ? 

;SAVE EXPONENT VALUE 

|SET C-FLAG IF SNGL, RESET IF DBL 

|22H + 22H + (DBL) = »D" 

|22H + 20H + 1 (SNGL)= ? 'E" 

I INSERT "D" OR "E" INTO BUFFER 

I NEXT 3 INST INSERT EXPONENT SL-N 
I INSERT * + « 
jBYPASS IF POS 
;ELSE INSERT } - f 

iCONVERT HEX 00-63 TO DEC 00-99 
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1088 




SUB 


108A 




JR 


108C 




ADD 


108E 




INC 


108F 




LD 


1090 




INC 


1091 




LD 


1092 


Z1092 


INC 


1093 


Z1093 


LD 


1095 




EX 


1096 




LD 


1099 


9 


RET 




;HERE I 


FROM OF 








109A 


Z109A 


INC 


109B 




PUSH 


129C 




CP 


109E 




LD 


109F 




JP 


10A2 




RRA 


10A3 




JP 


10A6 




LD 


10A9 




CALL 


10AC 




POP 


10AD 




LD 


10AE 




SUB 


10B0 




CALL 


10B3 




CALL 


10B6 


Z10B6 


LD 


10B7 




OR 


10B8 




CALL 


10BB 




DEC 


10BC 




CALL 


10BF 


Z10BF 


PUSH 


10C0 




CALL 


10C3 




POP 


10C4 




JR 


10C6 




LD 


10C7 




INC 


10C8 


Z10C8 


LD 


10CA 




LD 


10CD 


Z10CD 


INC 


10CE 


Z10CE 


LD 


10D1 




SUB 


10D2 




SUB 


10D3 




RET 


10D4 




LD 


10D5 




CP 


10D7 




JR 



I INSERT 1ST EXP DIGIT 
I INSERT 2ND EXP DIGIT 
; INSERT END-OF-BUFFER MARK 



0FE4H IF USGFLG HAS BIT 7 ON 



;CPR VARTYP TO 4 
RECOVER USGFLG 
;JP IF FPA1 IS SNGL OR DBL 
;JP IF SCIENTIFIC NOTATION 
5 REQUESTED (USGFLG BIT SET) 
I IN IT FOR INTEGER 
jTEST USGFLG BIT 6 
;RCVR DEC PT CTR IN D 



I INSERT "A" ZEROES 

iCONVERT FROM POWER-OF-TEN TABLE 

|TEST COMMA COUNTER 



I "DEC HL P RET" 

; INSERT "A" ZEROES 



;P/U PTR TO DEC PT IN BUFFER 



; SPACE? 
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10D9 




CP 


10DB 




JR 


10DD 




DEC 


10DE 




PUSH 


10DF 


Z10DF 


PUSH 


10E0 




LD 


10E3 




PUSH 


10E4 




RST 


10E5 




CP 


10E7 




RET 


10E8 




CP 


10EA 




RET 


10EB 




CP 


10ED 




RET 


10EE 




POP 


10EF 




CP 


10F1 




JR 


10F3 




INC 


10F4 




RST 


10F5 




JR 


10F7 




DEC 


10F8 




DEFB 


10F9 


Z10F9 


DEC 


10FA 




LD 


10FB 




POP 


10FC 




JR 


10FE 




POP 


10FF 




JP 


1102 


Z1102 


POP 


1103 




JR 


1105 




POP 


1106 




LD 


1108 


9 


RET 




;HERE 


IF FPA 








1109 


Z1109 


PUSH 


11 0A 




RRA 


110B 




JP 


110E 




JR 


1110 




LD 


1113 




CALL 


1116 




LD 


1118 




JP 


111B 


Z111B 


POP 


111C 




POP 


1 1 ID 




CALL 


1120 




DEC 


1121 




LD 


1123 




RET 



I* !? 



1_ ?? 
1+1? 
»$»? 

! 0'? 



;HIDE NEXT 2 INST WITH ' LD BC» 



INSERT »£» OVERFLOW IND 



IS SNGL OR DBL & NO SCIENTIFIC NOTATION 



;TEST USGFLG(O) FOR SCIENTIFIC 

;JUMP IF WANT IT 

j JUMP IF FPA1 WAS SNGL (TESTED @ 109C) 

;1D+16 

;FPA2 VS 1D+16 

;INIT FOR 16 DIGIT FIELD 

;JP IF < 1D+16 

jELSE CONVERT & ADD OVRFLW 

jSINCE NBR EXCEEDS FIELD 

^CONVERT NBR TO ASCI I 

; INSERT «^' OVRFLW IND 
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1124 
1127 
112A 
11 2D 
1130 
1132 
1135 
1138 
1139 
113A 
11 3D 
113E 
113F 
1140 
1141 
1142 
1145 
1148 
114B 
114C 
114F 
1150 
1153 
1154 



1157 
1158 
1159 
115A 
115D 
115E 
1161 
1162 
1163 
1164 
1167 
116A 
116B 
116C 
116D 
116E 
116F 
1170 
1171 



•HERE ON 
Z1124 



Z1132 



•HERE ( 
Z1157 



Z1162 

Z1164 



SNGL & NO SCIENTIFIC NOTATION 
;1E+16 -> BCDE 



LD 

LD 

CALL 

JP 

LD 

CALL 

CALL 

POP 

POP 

JP 

PUSH 

LD 

LD 

SUB 

SUB 

CALL 

CALL 

CALL 

OR 

CALL 

OR 

CALL 

POP 

JP 



|CPR FPA1 TO 1E+16 

I JP IF < 1E+16 FOR OVRFLW 

; IN IT FOR 6 DIGIT FIELD 

;TEST SIGN OF FPA1 

; PUT IN RANGE IF <> 



;JP IF SMALLER THAN RANGE 



;"A !! ZEROES INTO BUFFER 
;CONVERT TO ASCI I 

;CK ON V s OR "." NEEDED 



SNGL OR DBL, NO SCIENTIFIC, NBR < RANGE 



LD 

LD 

OR 

CALL 

ADD 

JP 

XOR 

PUSH 

PUSH 

CALL 

JP 

POP 

LD 

SUB 

POP 

LD 

ADD 

LD 

JP 



iDEC A, RET 



;IF NEG e , Dl V, 10 

;IF STILL NEG a , DIV 10 
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1174 
1175 
1176 
1179 
117A 
117D 
117F 
1182 
1183 
1186 
1187 
1188 
1189 
118A 
118D 
118E 
118F 
1190 
1193 
1194 
1195 
1197 
119A 
119B 
119C 
119F 
11A0 



11 A3 
11A4 
11A5 
11A8 
11A9 



11AA 
11 AD 
11AF 
11 BO 
11B2 
11B5 
11B6 
11B9 
1 1BA 
11BB 
11BC 
11BD 



Z117F 



Z1190 



Z119A 



SUB 

SUB 

CALL 

PUSH 

CALL 

JR 

CALL 

LD 

CALL 

LD 

XOR 

SUB 

SUB 

CALL 

PUSH 

LD 

LD 

CALL 

POP 

OR 

JR 

LD 

ADD 

DEC 

CALL 

LD 

JP 



I "A" ZEROES »> BUFFER 



;"A n ZEROES -> BUFFER 



;"A" ZEROES -> BUFFER 

iCONVERT HEX TO ASCI ! 

I DEC PT PTR -> HL 
;"A" ZEROES -> BUFFER 



•HERE 
Z11A3 



F INTEGER & SCIENTIFIC NOTATION REQUESTED 



PUSH 

PUSH 

CALL 

POP 

XOR 



iCONVERT INTEGER TO SNGL 



;HERE 
Z11AA 



Z11 



F SNGL OR DBL & SCIENTIFIC NOTATION REQUESTED 



JP 

LD 

DEFB 1 

LD 

CALL 

SCF 

CALL 

POP 

POP 

PUSH 

LD 

OR 



I N IT FOR 16 DIGIT FIELD 
|HIDE NEXT INST WITH ? LD BC» 
1 1 N IT SNGL FOR 6-DIGIT FIELD 



;CONVERT FPA1 TO RANGE IF <> 
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11 BE 




PUSH 




11BF 




CALL 


;DEC A, RET 


11C2 




ADD 




11C3 




LD 




11C4 




LD 


;SET D TO -1 IF USGFLG(2) 


11C5 




AND 


IS SET OR SET D TO +1 IF 


11C7 




CP 


;USGFLG(2) RESET 


11C9 




SBC 


;BIT 2 USED FOR ? - s AT END 


11CA 




LD 


|0F FIELD 


11CB 




ADD 




11CC 




LD 




11CD 




SUB 




1 1CE 




PUSH 




11CF 




PUSH 




11D0 Z11D0 


CALL 




11D3 




JP 




11D6 




POP 




11D7 




POP 




11D8 




PUSH 




11D9 




PUSH 




11 DA 




JP 




11DD 




XOR 




1 1DE Z11DE 


CPL 




1 1DF 




INC 




11E0 




ADD 




1 1 El 




INC 




11E2 




ADD 




11E3 




LD 




11E4 




LD 




11E6 




CALL 


iCONVERT HEX TO ASC! I 


11E9 




POP 




11EA 




CALL 




11 ED 




POP 




11EE 




POP 




11EF 




CALL 


|DEC HL, RET 


11F2 




POP 




11F3 




JR 




11F5 




ADD 




11F6 




SUB 




11F7 




SUB 




11F8 Z11F8 


PUSH 




11F9 




CALL 


j INSERT THE EXPONENT 


11FC 




EX 




11FD 




POP 




11FE 


###*# 


JP 






, ROUTINE TO PUT 


FPA1 IN THE RANGE 1 E+5 TO 1 E+6 IF 






FPA1 IN 


THE RANGE 1D+15 TO 1D+16 IF DBL 




.#*##* 






1201 ; 


71201 


PUSH 





SNGL 
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1202 
1203 




XOR 
PUSH 


1204 




RST 


1205 




JP 


1208 


Z1208 


LD 


120B 




CP 


120D 




JP 


1210 




LD 


1213 




LD 


1216 




CALL 


1219 




CALL 


121C 




POP 


121D 




SUB 


121F 




PUSH 


1220 


9 


JR 




. It 


THIS PUTS FPA 




P 




1222 


Z1222 


CALL 


1225 


Z1225 


RST 


1226 




JR 


1228 




LD 


122B 




LD 


122E 




CALL 


1231 




JR 


1233 


Z1233 


LD 


1236 




CALL 


1239 


Z1239 


JP 


123C 




POP 


123D 




CALL 


1240 




PUSH 


1241 




JR 


1243 


Z1243 


POP 


1244 




CALL 


1247 




PUSH 


1248 




CALL 


124B 


Z124B 


POP 


124C 




OR 


124D 




POP 


124E 


.##**# 

t 


RET 




I THIS PUTS FPA1 BELOW 








124F 


Z124F 


RST 


1250 




JP 


1253 




LD 


1256 




LD 


1259 




CALL 


125C 




JR 


125E 


Z125E 


LD 



j JUMP IF SNGL 

165536 

|JP WHEN EXP EXCEEDS 2**16 

j1D+10 

jXFR 1D+10 TO FPA2 

MULTIPLY FPA1 BY 1D+10 

lADJUST COUNTER 



1 ABOVE MIN VALUE (1E+5/1D+15) 



I JUMP IF DBL 
|1E+5 -> BCDE 

|CPR SNGL TO 1E+5 

flD+15 

|CPR DBL TO 1D+15 

I JP IF FPA1 > MIN VALUE 

lELSE RCVR COUNTER 

I AND RAISE BY POWER OF TEN 

I SAVE COUNTER 

?FPA1 EXCEEDS MAX, RCVR 
jTHE COUNTER AND REDUCE BY 
I A POWER OF TEN 

I RCVR SHIFT COUNTER 

j AND TEST SIGN 

j RCVR BUFFER POINTER 



MAX VALUE (1E+6/1D+16) 

?JUMP IF NOT SNGL 
I 1E+6 -> BCDE 

;CPR SNGL TO MAX VALUE 

|1D+16 
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1261 
1264 
1265 
1268 



1269 
126A 
126B 
126C 
126E 
126F 



Z1264 
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|CPR DBL TO MAX VALUE 
jPOP RETURN ADDRESS 
jJP IF FPA1 > MAX VALUE 
;ELSE RETURN 
. %.%.%%%. 

•LOAD ZEROES -> ASCBUF FOR AS MANY BYTES AS COUNT IN REG A 
• ftftftftft 

Z1269 
Z126A 



CALL 
POP 
JP 
JP 



OR 

RET 

DEC 

LD 

INC 

JR 



NSERT ASCI I ZERO 



.ftftftftft 

•LOADS ZEROES -> ASCBUF FOR COUNT OF REG A 

;& INSERTS COMMAS AS NEEDED PLUS THE DECIMAL POINT 

• ftftftftft 



1271 


Z1271 


JR 




1273 


Z1273 


RET 




1274 




UALL 




1277 


Z1277 


LD 




1279 




INC 




127A 




DEC 




127B 


• ft ft ftft ft 

y 

J 

.ftftftftft 


JR 




127D 


Z127D 


LD 




127E 




ADD 




107F 




INC 




1280 




LD 




1281 




INC 




1282 


Z1282 


SUB 




1284 




JR 




1286 




ADD 




1288 




LD 




1289 


Z1289 


LD 




128C 




AND 


;TEST BIT 6 FOR I 


128E 




RET 




128F 




LD 




1290 


.ftftftftft 

9 


RET 






; ROUTINE TO INSERT ", 


,» OR "." AS NEEDED 




.ftftftftft 






1291 


Z1291 


DEC 




1292 




OP 
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9 








jROUTINES TO CONVERT HEX DATA TO ASCII CHARACTERS 










12A4 


Z12A4 


PUSH 




12A5 




RST 




12A6 




JP 


;JUMP IF SNGL 


12A9 




PUSH 




12AA 




PUSH 




12AB 




CALL 


|XFR DATA FROM FPA1 TO FPA2 


12AE 




LD 


; 0.5 


12B1 




CALL 


;XFR FM MEM TBL TO FPA1 


12B4 




CALL 




12B7 




XOR 




12B8 




CALL 




12BB 




POP 




12BC 




POP 




12BD 




LD 


;PT TO DBL CONV TBL 


12C0 




LD 


;LOOP 12DE-12C2 10 TIMES 


12C2 


Z12C2 


CALL 


;"," OR «V« NEEDED? 


12C5 




PUSH 




12C6 




PUSH 




12C7 




PUSH 




12C8 




PUSH 




12C9 




LD 


lINIT TO COUNT THE SUBTRACT 


12CB 


Z12CB 


INC 




12CC 




POP 




12CD 




PUSH 




12CE 




CALL 


?SUB MANT (HL) FM (41 1D) 


12D1 




JR 




12D3 




POP 




12D4 




CALL 


;ADD MANT (HL) TO (41 1D) 


12D7 




EX 




12D8 




POP 




12D9 




LD 


iCOUNT INTO BUFFER 


12DA 




INC 


jPT TO NEXT ASCBUF POS 


12DB 




POP 


1 RECOVER LOOP COUNT 


12DC 




POP 




12DD 




DEC 


j DEC LOOP COUNT 


12DE 




JR 


jEND OF DO LOOP 


12E0 




PUSH 




12E1 




PUSH 




12E2 




LD 




12E5 




CALL 


;(HL) -> FPA1 


12E8 


.**### 

? 


JR 






|HERE I 


IF SINGLE 


PRECISION 




9 






12EA 


Z12EA 


PUSH 




12EB 




PUSH 
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12EC 

12EF 

12F0 

12F3 

12F6 

12F7 

12F8 

12F9 

12FC 

12FD 

1300 

1301 

1302 

1303 

1304 

1307 

1308 

130A 

130B 

130C 

130D 

130E 

130F 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

131 A 

131D 

131E 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1329 

132A 

132B 

132D 



Z12F6 



Z12FC 



Z130A 



CALL 

INC 

CALL 

CALL 

POP 

POP 

XOR 

LD 

CCF 

CALL 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

POP 

LD 

INC 

LD 

SUB 

LD 

INC 

LD 

SBC 

LD 

INC 

LD 

SBC 

LD 

DEC 

DEC 

JR 

CALL 

INC 

CALL 

EX 

POP 

LD 

INC 

POP 

POP 

JR 

INC 

INC 

LD 

JR 



,*##&# 



.*#*## 
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|0 e 5 + FPA1 



jBCDE -> FPA1 



;PT TO SNGL CONV VALUES 
C-FLG (RESET 2ND TIME LOOP) 

;CK IF '.» OR V NEEDED 



;SAVE BUFFER POINTER 

;FPA1 -> BCDE 

lINIT ACCUM 

I ACCUMULATE INTO REG B 
;HOW MANY TIMES THE 
iCONV VALUE CAN BE 
; SUBTRACTED FROM THE 
iMANTISSA (DECIMAL) 



;PT TO 1ST TABLE BYTE AGAIN 



I ADD BACK 3 BYTES (HL) + EDC 
;PT TO NEXT TABLE VALUE 
j BCDE -> FPA1 
iTABLE PTR -> DE 

I INSERT ASCI I VALUE INTO 
iBUFFER & ADVANCE POINTER 



;PT TO INTEGER TABLE % 1000 
lONLY 4 VALUES LEFT 



CONVERT INTEGER TO ASCI 



132F Z132F PUSH 
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1330 




LD 




1333 




LD 




1335 


Z1335 


CALL 




1338 




PUSH 




1339 




PUSH 




133A 




PUSH 




133B 




EX 




133C 




LD 




133D 




INC 




133E 




LD 




133F 




PUSH 




1340 




INC 




1341 




EX 




1342 




EX 




1343 




LD 




1346 




LD 




1348 


Z1348 


INC 




1349 


Z1349 


LD 




134A 




SUB 




134B 




LD 




134C 




LD 




134D 




SBC 




134E 




LD 




134F 




JR 




1351 




ADD 




1352 




LD 




1355 




POP 




1356 




POP 




1357 




LD 




1358 




INC 




1359 




POP 




135A 




POP 




135B 




DEC 




135C 




JR 




135E 




CALL 




1361 




LD 




1362 




POP 




1363 


.#*•**# 
? 


RET 






1 VARIOUS DATA 


VALUES & 




t 






1364 


Z1364 


DEFW 





1366 




DEFW 





1368 




DEFW 


2F9H 


136A 




DEFW 


0A215H 


136C 


Z136C 


DEFW 


OFFFDH 


136E 




DEFW 


319FH 


1370 




DEFW 


5FA9H 


1372 




DEFW 


0B263H 


1374 


Z1374 


DEFW 


OFFFEH 



I POWER OF 10 TABLE 
jHAS 5 VALUES 
|NEED * 8 ? OR '/? 



iTABLE PTR -> HL 
iTABLE VALUE -> STACK 



I PTR TO STACK & VALUE TO HL 

I TABLE VALUE -> DE 

;& INTEGER -> HL 

1 1 NIT DECIMAL COUNTER 

jACCUM # OF TIMES WE CAN 

I SUBTRACT THE CURRENT 

I POWER OF TEN INTO REG B 



I ADD BACK ONE TIME 
; UPDATE INTEGER VALUE 



iPLACE ASCI I DIGIT INTO BUF 

;& PT TO NEXT BUFFER POS 

I RECOVER DIGIT PLACE COUNTER 

I POSITION COUNT DOWN 
I GO BACK FOR NEXT POSITION 
|SEE IF ? o* OR »,» NEEDED 
I INSERT HEX ZERO INTO BUFFER 



1D+10 



1D+15 



1D+16 
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1376 




DEFW 


0BF03H 




1378 




DEFW 


1 BC9H 




137 A 




DEFW 


0B60EH 




137C 


HALF 


DEFW 





;0.5 


137E 




DEFW 







1380 


Z1380 


DEFW 







1382 




DEFW 


8000H 




1384 


Z1384 


DEFW 





jlD+16 


1386 




DEFW 


0BF04H 




1388 




DEFW 


1BC9H 




138A 




DEFW 


0B60EH 






|TEN GROUPS OF 


7 BYTES 


EACH FC 




.####* 
t 








138C 


Z138C 


DEFW 


8000H 


;1D+16 


138E 




DEFW 


0A4C6H 




1390 




DEFW 


8D7EH 




1392 


9 


DEFB 


3 




1393 




DEFW 


4000H 


;1D+15 


1395 




DEFW 


107AH 




1397 




DEFW 


5AF3H 




1399 




DEFB 







139A 




DEFW 


0A000H 


;1D+14 


139C 




DEFW 


4E72H 




139E 




DEFW 


91 8H 




13A0 


.**### 
f 


DEFB 







13A1 




DEFW 


1000H 


; 1D+13 


13 A3 




DEFW 


0D4A5H 




13A5 




DEFW 


0E8H 




13A7 


t 


DEFB 







13A8 




DEFW 


0E800H 


;1D+12 


13AA 




DEFW 


4876H 




13AC 




DEFW 


017H 




13AE 




DEFB 







13AF 




DEFW 


0E400H 


;1D+11 


13B1 




DEFW 


540BH 




13B3 




DEFW 


2 




13B5 




DEFB 







13B6 




DEFW 


OCAOOH 


jlD+10 


13B8 




DEFW 


3B9AH 




13BA 




DEFW 







13BC 


t 


DEFB 







13BD 




DEFW 


0E100H 


;1D+9 



V 
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13BF 




DEFW 


5F5H 




13C1 




DEFW 







13C3 


.***** 

p 


DEFB 







13C4 




DEFW 


9680H 


;1D+8 


13C6 




DEFW 


98H 




13C8 




DEFW 







13CA 


****** 


DEFB 







13CB 




DEFW 


4240H 


;1D+7 


13CD 




DEFW 


OFH 




13CF 




DEFW 







13D1 


o ***** 

9 


DEFB 









|TWO CONSTANTS 


TO CONVERT REAL TO ASCI I 




o ***** 

p 








13D2 


Z13D2 


DEFW 


86A0H 


; 1 E+6 


13D4 


o ***** 


DEFB 


1 




13D5 




DEFW 


271 OH 


1 1 E+5 


13D7 


.***** 


DEFB 





, 




1 POWER 


OF 10 TABLE FOR 


CONVERTING INTEGERS TO DI 




..***** 








13D8 


Z13D8 


DEFW 


10000 




13DA 




DEFW 


1000 




13DC 




DEFW 


100 




13DE 




DEFW 


10 




13E0 


****** 


DEFW 


1 






1 ROUTINE STACKS 


I A CALL 


TO CHANGE SIGN OF RESULT 




****** 








13E2 


Z13E2 


LD 






13E5 




EX 






13E6 




JP 







13E7 
13EA 
13ED 
13F0 



N FPA1 



SQR 



****** 

•PROCESS SQR(X) : USES POWER & EXP FUNCTIONS 
I ALGORITHM RAISES FPA1 TO 0.5 POWER 
***** 

CALL |FPA1 -> STACK 

LD ;0.5 -> FPA1 

CALL 

JR 
.***** 

•PROCESS RAISING TO A POWER : X POWER Y 

; ALGORITHM FINDS Z SUCH THAT EXP(Z) = X POWER Y 

I „I.E. Z = Y * LOG(X) 

I THEN USES EXP(X) FUNCTION TO TAKE EXP(Z) 

• ***** 



13F2 POWER CALL 



;Y- t 



4-49 



Math Routines^ Disassembly 



13F5 


Z13F5 


POP 




13F6 




POP 




13F7 




CALL 


1 POWER FOR M, Z, P 


13FA 




LD 




13FB 




JR 


;IF POWER = 


13FD 




JP 




1400 




OR 


;BASE FOR ZERO (POWER IS N 


1401 


Z1401 


JP 


;BY ZERO ERROR 


1404 


Z1404 


OR 




1405 




JP 


;ZEROES EXPONENT I RETURNS 


1408 




PUSH 


;SAVE X 


1409 




PUSH 




140A 




LD 




1408 




OR 


jONES TO ALL BUT SIGN BIT 


140D 




CALL 


;FPA1 -> BCDE 


1410 




JP 


; JUMP ON POS X 


1413 




PUSH 


iSAVE X AGAIN 


1414 




PUSH 




1415 




CALL 


iFIND INKY) 


1418 




POP 


; RECOVER X 


1419 




POP 




141 A 




PUSH 




141B 




CALL 




1 41 E 




POP 




141F 




LD 




1420 




RRA 




1421 


Z1421 


POP 


; STACK -> FPA1 


1422 




LD 




1425 




POP 




1426 




LD 




1429 




CALL 


lINIT TO CHG SIGN OF RESUL 


142C 




CALL 


;CHG SIGN OF FPA1 


142F 




PUSH 




1430 




PUSH 




1431 




CALL 


;TAKE LOG(X) 


1434 




POP 




1435 




POP 




1436 


.***#* 


CALL 


;Y * LOG(X) 




1 PROCESS EXP(X) 


FUNCTION 




*#&*#& 






1439 


EXP 


CALL 


; SAVE X ON STACK 


143C 




LD 


; 1.4427 (BASE 2 LOG OF E) 


143F 




LD 




1442 




CALL 


;X * 1.4427 -> FPA1 


1445 




LD 




1448 




CP 


1 128 


144A 




JP 


;OVRFLW IF >=127 


144D 




CALL 


;TAKE INKFPA1) 


1450 




ADD 
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1452 




ADD 






1454 




JP 






1457 




PUSH 






1458 




LD 




;1 .0 


145B 




CALL 




;1.0 + FPA1 


145E 




CALL 




;. 693147 * ( 1 .0 + FPA1 


1461 




POP 






1462 




POP 




jRCVR X 


1463 




POP 






1464 




PUSH 






1465 




CALL 




;X - ABOVE RESULT 


1468 




CALL 






146B 




LD 




;PT TO COMP TABLE 


146E 




CALL 




1 PERFORM SERIES CALC 


1471 




LD 




; RECOVER EXPONENT ONLY 


1474 




POP 






1475 




LD 






1476 




JP 




;& MULTIPLY BY PREV RES 




|DATA VALUES 


FOR COMPUTING EXP(X) 












1479 


EXPTBL 


DEFB 


8 


;8 CONSTANTS FOR EXP PO 


147A 




DEFW 


2E40H 


;-1.41316E-14 


147C 




DEFW 


7494H 




147E 




DEFW 


4F70H 


;1.32988E-3 


1480 




DEFW 


772EH 




1482 




DEFW 


26EH 


;-8 o 30136E-3 


1484 




DEFW 


7A88H 




1486 




DEFW 


0A0E6H 


10*0416574 


1488 




DEFW 


7C2AH 




148A 




DEFW 


0AA50H 


1-0 .1 66665 


148C 




DEFW 


7FAAH 




148E 




DEFW 


OFFFFH 


JVC-' 


1490 




DEFW 


7F7FH 




1492 




DEFW 





;-1 oO 


1494 




DEFW 


8180H 




1496 




DEFW 





;1.0 


1498 


.*#### 


DEFW 


8100H 





I ROUTINE TO PROCESS SERIES CALCULATIONS 

I ALGORITHM COMPUTES : SIGMA C(l) * X**2I 

I EX) C1 * X**6 + C2 * X**4 + C3 * X**2 











149A 


Z149A 


CALL 


jFPA1 -> STACK 


149D 




LD 


lESTAB RET TO 'STACK * 


14A0 




PUSH 




14A1 




PUSH 


|SAVE TABLE PTR 


14A2 




CALL 


;FPA1 -> BCDE 


14A5 




CALL 




14A8 




POP 





FPA1 ? 
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;FPA1 -> STACK 
jP/U CTR TO TABLE ENTRIES 
;PT TO NEXT TABLE VALUE 
I VALUE TO FPA1 
6 |HIDE NEXT INST WITH « LD B' 
; RECOVER TABLE COUNTER 
I STACK TO BCDE 

;DEC CTR & RET IF LAST VALUE 

;BCDE -> STACK 

; SAVE TABLE COUNTER 
|SAVE PTR TO NEXT VALUE 
|BCDE * FPA1 -> FPA1 
I NEXT TABLE VALUE -> BCDE 

;& SAVE PTR TO NEXT VALUE 

I RESTORE TABLE PTR & LOOP 

RND(X) FUNCTION 

iCVRT ARG TO INTEGER 

I PROVIDE ERROR IF PARM 

I EXCEEDS INTEGER BOUNDS 

;OR IS NEG (FC ERROR) 

I IF PARM IS ZERO, BYPASS NEXT 

iPIECE TO RETURN (0-1) 

TURN RND NBR (1-PARM) 



|GEN RND NBR (0-1) 

;FPA1 -> RFPA 

jPUT THE RNDNBR (0-1) ONTO 

|THE STACK & RECOVER THE 

; INTEGER IN REG HL 

iCVRT HL TO SNGL IN FPA1 

|RCVR (0-1) -> RFPA 

jMULT (0-1) BY PARM 

jADD ONE TO ABOVE RESULT -> FPA1 
;FIND INTEGER PART OF FPA1 
;& CVRT TO SINGLE PREC 

A RANDOM NUMBER BETWEEN AND 1 
***** 



4-52 



14A9 


Z14A9 


CALL 


14AC 




LD 


HAD 




INC 


14AE 




CALL 


14B1 




DEFB 


14B2 


Z14B2 


POP 


14B3 




POP 


14B4 




POP 


14B5 




DEC 


14B6 




RET 


14B7 




PUSH 


14B8 




PUSH 


14B9 




PUSH 


14BA 




PUSH 


14BB 




CALL 


14BE 




POP 


14BF 




CALL 


14C2 




PUSH 


14C3 




CALL 


14C6 




POP 


14C7 


o***** 
9 


JR 




1 


PROCESS 




****** 
t 




14C9 


RND 


CALL 


14CC 




LD 


14CD 




OR 


14CE 




JP 


14D1 




OR 


14D2 


o***** 

t 


JP 




; PARM 1 


S > 1; RE 




o***** 




14D5 




PUSH 


14D6 




CALL 


14D9 




CALL 


14DC 




EX 


HDD 




EX 


14DE 




PUSH 


14DF 




CALL 


14E2 




POP 


14E3 




POP 


14E4 




CALL 


14E7 




LD 


14EA 




CALL 


14ED 


****** 

p 


JP 




1 


GENERATE 



14F0 RNDO 


LD 


14F3 


PUSH 


14F4 


LD 


14F7 


LD 


14F8 


LD 


14FA Z14FA 


LD 


HFC Z14FC 


EX 


14FD 


ADD 


14FE 


EX 


14FF 


LD 


1500 


RLA 


1501 


LD 


1502 


EX 


1503 


LD 


1504 


RLCA 


1505 


LD 


1506 


EX 


1507 


JP 


150A 


PUSH 


150B 


LD 


150E 


ADD 


150F 


EX 


1510 


LD 


1513 


ADC 


1514 


LD 


1515 


POP 


1516 Z1516 


DEC 


1517 


JP 


151 A 


EX 


151 B 


INC 


151C 


EX 


151D 


DEC 


1 51 E 


JP 


1521 


POP 


1522 


LD 


1525 


ADD 


1526 


LD 


1529 


CALL 


152C 


LD 


152E 


ADC 


152F 


LD 


1532 


EX 


1533 


LD 


1535 


LD 


1538 


LD 


1539 


DEC 


153A 


LD 


153B 


LD 


153C 


LD 


153E 


JP 
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;PT TO MULTIPLIER CONSTANT 
;AND SAVE PTR FOR NOW 
j ZERO OUT MANTISSA RFPA 

;INIT TO MULT 3 BYTES 
;INIT FOR 8 BITS PER BYTE 

JmULT VALUE IN DE BY 2 

t 

JmULT VALUE IN REG C BY 2 

•EXCHANGE "SEED" 

jMULTI PLYING BY CONTENTS OF 

;4090, OR 4091, OR 4092 

;BY 2 

lEXCH BACK TO P/U COUNTER 

I JUMP IF END OF THIS ITERATION 

I SAVE LOOP COUNTER 

JaDD THE 3-BYTE SEED AT 
J40AAH - 40ACH TO THE 
;RFPA MANTISSA 

\ POP LOOP COUNTER 
,-DECREMENT BIT LOOP 
;G0 BACK IF < 8 

•ADVANCE 4090 -> 4091 -> 4092 

• DECREMENT BYTE COUNTER 

;G0 BACK IF < 3 

;P0P TO MAINTAIN STACK INTEGRITY 

J ADD 372837 TO MANTISSA 
; IN 2 STEP OPERATION. 
?CHG TYPFLG TO SNGL 
j REST OF 3 BYTE ADD 



;1/2 -> EXPONENT 
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; PROCESS COS(X) 


: USES 


SIN(X) 




p 








1541 


COS 


LD 




; 1.5708 (PI/2) 


1544 




CALL 




;(PI/2) + FPA1 -> FPA1 




iPROCESS SIN(X) 


FUNCTION 




9 








1547 


SIN 


UALL 




;FPA1 -> STACK 


154A 




LD 




;6. 28319 (2 PI ) 


154D 




LD 






1550 




CALL 




;BCDE -> FPA1 


1553 




POP 






1554 




POP 




1 RECOVER X 


1555 




CALL 




;X / 2PI 


1558 




CALL 




|X / 2PI -> STACK 


155B 




CALL 




iTAKE INKX/2PI ) 


155E 




POP 






155F 




POP 




jRECOVER X/2PI 


1560 




CALL 




1 (X/2PI )-INT(X/2PI ) -> FPA1 


1563 




LD 




|0.25 


1566 




CALL 




|0 o 25 - ABOVE RESULT 


1569 




OALL 




|TEST FOR M, Z, P 


156C 




SCF 






156D 




JP 




1 BYPASS IF POS 


1570 




CALL 




lELSE 0.5 + RESULT 


1573 




L/ALL 




|TEST FOR M, Z p P 


1576 




OR 






1577 


Z1577 


PUSH 






1578 




CALL 




;CHG SIGN OF FPA1 


157B 




LD 




p \J o £- ~) 


157E 




CALL 




|0.5 + FPA1 -> FPA1 


1581 




POP 






1582 




CALL 






1585 




LD 




;PT TO SERIES TABLE 


1588 




JP 




;& CALC SERIES 




iDATA VALUES TO 


COMPUTE SIN(X) 




9 








158B 


HALFPI 


DEFW 


OFDBH 


|U5708 (PI/2) 


158D 




DEFW 


8149H 




158F 


QUARTR 


DEFW 





|0.25 


1591 




DEFW 


7F00H 




1593 


SINTBL 


DEFB 


5 


;5 CONSTANTS FOR SIN TABLE 


1594 




DEFW 


0D7BAH 


139.7107 


1596 




DEFW 


861 EH 




1598 




DEFW 


2664H 


1-76.575 


159A 




DEFW 


8799H 




159C 




DEFW 


3458H 


;81 .6022 


159E 




DEFW 


8723H 
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Math Routines: Disassembly 


15A0 




DEFW 


5DE0H 


; -41 .6022 


15A2 




DEFW 


86A5H 




15A4 




DEFW 


OFDAH 


|6. 28319 (2 PI ) 


15A6 


p 


DEFW 


8349H 






1 PROCESS TAN(X) 


: AS SIN(X)/COS(X) 












15A8 


TAN 


L»ALL 




;FPA1 -> STACK 


15AB 




CALL 




|CALC SIN(X) 


15AE 




POP 




1 RECOVER X 


15AF 




POP 






15B0 




CALL 




;SIN(X) -> STACK 


15B3 




EX 






15B4 




CALL 




;X -> FPA1 


15B7 




CALL 




iCALC COS(X) 


15BA 


o $■ •M-&& •& 

^ 


JP 




;SIN(X)/C0S(X) 




I PROCESS ATN(X) 


FUNCTION 




»%%%*% 

p 








15BD 


ATN 


CALL 




iTEST X FOR M, Z, P 


15C0 




CALL 




1 IN IT TO CHG SIGN OF RESULT 


15C3 




CALL 




;X < 0, SO MAKE POS NOW 


15C6 




LD 




;GET EXPONENT 


15C9 




CP 




| 1 o u 


15CB 




JR 




lJUMP IF < ZERO 


15CD 




LD 




;1.0 -> BCDE 


15D0 




LD 






15D1 




LD 






15D2 




CALL 




1 1 cO / X 


15D5 




LD 




lESTAB RET ( PI/2 - FPA1 ) 


15D8 




PUSH 






15D9 


Z15D9 


LD 




;PT TO TABLE 


15DC 




CALL 




iCALC SERIES : C(l) + X**2I 


15DF 




LD 






15E2 




RET 




|TO 710H (PI/2 - FPA1) 




? DATA VALUES TO 


COMPUTE ATN(X) 












15E3 


ATNTBL 


DEFB 


9 


;9 CONSTANTS FOR ATN POWER SERIES 


15E4 




DEFW 


0D74AH 


;2.86623E-3 


15E6 




DEFW 


783BH 




15E8 




DEFW 


6E02H 


1-0.0161657 


15EA 




DEFW 


7B84H 




15EC 




DEFW 


0C1FEH 


1 0.0429096 


15EE 




DEFW 


7C2FH 




15F0 




DEFW 


3174H 


1-0.0752896 


15F2 




DEFW 


7D9AH 




15F4 




DEFW 


3D84H 


10.106563 


15F6 




DEFW 


7D5AH 




15F8 




DEFW 


7FC8H 


1-0.142089 
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Math Routines; Disassembly 



15FA 
15FC 
15FE 
1600 
1602 
1604 
1606 



DEFW 7E91H 

DEFW 0BBE4H ;0. 199936 

DEFW 7E4CH 

DEFW 0AA6CH ;; 0,333331 

DEFW 7FAAH 

DEFW ;1.0 

DEFW 81 H 
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APPENDIX As LABEL TABLE 



The following list was developed to supply the assembly language programmer 
with a quick reference to routine entry points, I/O areas, storage areas, and 
pointers. It was not designed as a complete interfacing guide* Labels 
listed for the various addresses provide a meaningful code-word giving some 
indication of the use(s) of the routines or areas e Address locations not 
described in this volume are either self-explanatory, may be found in Radio 
Shack reference manuals, or are discussed In other volumes. 




A-1 



Start End Label Description 



0000 2FFF L2R0M 

0000 CBOOT 

0008 RST8 

000B WHERE 

000D DBOOT 

0010 RST16 



0013 
0018 
001B 
0020 

0023 

0028 

002B 

0030 

0033 

0038 

003B 

0040 

0046 

0049 

0050 

0060 

0066 

0075 

00C4 

0105 

0111 

01 2D 

0132 

0132 

0135 

0138 

01 9D 

01C9 

01D3 

01D9 

01F8 

01FE 

0212 

021 E 

0221 

022C 

0235 

0241 

0261 

0264 

0284 

0287 

0293 



004F 
005F 
0065 
0074 

00D5 
0110 
01 2B 

01C8 



01F7 



021 D 
022B 

0234 
0240 
0260 
0283 

0292 

02A8 



INBYT 
RST24 
OUTBYT 
RST32 

CTLBYT 

RST40 

KBSCAN 

RST48 

CRTBYT 

RST56 

LPTBYT 

BUFFNV 

DRIVRV 

GETCHR 

KBTBL 

DELAY 

NMI 

CSTL I I 

MEMS I Z 

DMEMSZ 

DRSL2B 

L3ERR 

GRPHCS 

POINT 

SET 

RESET 

INKEY 

CLS 

RANDOM 

CWBIT 

CTOFF 

CTON 

DEFDRV 

CLRCFF 

STATFF 

CSTAR 

CRBYTE 

CRBIT 

CW2BYT 

CWBYT 

CTONWL 

CWLDR 

CTONRL 



SCF. 
Skips spaces* 



Radio Shack Level II BASIC ROM 

ROM Level I I Bootstrap 

(Parser) CP ( Syntax )/RST1 6 if =/Else SNERR 

Resolve Relocation Address 

Vector to disk bootstrap 

INC HL. If (HL) is ASCI I 0-9 

If value Is zero P set Z flag, 

Input a byte from a device 

CP HL.DE (A lost.) 

Output a byte to a device 

P/U TYPFLG at 40AFH. If <8 SCF. RRT. 

Flags set as a result of type. M=l nt.,Z=Str,P0=SNG ? NC=DBL 

Output a control byte to a device. 

JP DOS command processor 

Keyboard scan return input in A, (DE lost.) 

Debug breakpoint 

Display byte in s A f at cursor (DE lost) 

interrupt Mode 1 

Send byte In f A ? to printer (DE lost) 

Vector to buffer Input routine (BUFFIN) 

Vector to I/O driver routine % 03C2H 

Scan keyboard waiting for Input. (DE lost) 

Table of Special Characters for keyboard routine 

Delay routine (BC=Counter. 14.66 msec/ loop) 

Non-maskable interrupt 

Cold start for Level II BASIC 

Determine memory size 

Data "MEMORY SIZE' 1 

Data "RADIO SHACK LEVEL 

Level I I I error 

Graphics Routines 

Point 

Set 

Reset 

lnkey$ 

CLS 

Random 



I I BASIC<CR>" 



(Bcmd C6H) 

(Bcmd 83H) 

(Bcmd 82H) 

(Bcmd C9H) 

(Bcmd 84H) 

(Bcmd 86H) 
Write bit to cassette 
Cassette off 
Cassette on 

Define cassette drive from f A f 
Clear CFF 

Change status of CFF from HL 
Change star in corner for cassette operations 
Read byte from cassette 
Read bit from cassette 
Write byte to cassette twice 
Write byte to cassette 

Cassette ox\ 9 write leader and sync, byte 
Write leader and sync, byte 
Cassette on, find sync, put stars In corner 



A-2 



Start End Label Description 



0296 
029F 
02A9 
02B2 
0314 
031D 
032A 
033A 
0348 
0358 
0361 

0384 

03 8B 

03 9C 

03C2 

03E3 

0458 

058D 

05D1 

05D9 

0674 

06 9F 

06CC 

06D2 

0708 

070B 

0710 

0713 

0716 

0778 

07B2 

07F8 

07FD 

0801 

0805 

0809 

0814 

0834 

0841 

0847 

0897 

08A0 

08A2 

0955 

0977 

0982 

098 A 

098D 

09A4 

09B1 



031C 
0329 
0347 

0357 
0360 
0383 

038A 
03 9B 
03C1 
03 E2 
0457 
058C 
05D8 

0673 
06CF 



06DD 



07FB 
0800 
0804 
0808 

0819 
0839 
0846 



0963 



09B0 



CRLDR 

CSTARS 

GSYSTR 

SYSTEM 

GETADR 

SYSGO 

DSPCHR 

CRTOUT 

POSIND 

KBDSCN 

INCHRS 

GTDCHR 

RSTDEV 

LPDCHR 

DRIVER 

KEY IN 

VIDEO 

LPTDRV 

PSTATU 

BUFF IN 

COLDST 

D I SKBT 

BASIC 

RSTRTS 

ADHALF 

ADDHL 

SUBHL 

SUBSNG 

ADDSNG 

FPA1EZ 

OVERR 

ONE1 



LOG 
SQR202 



MULSNG 

DIVIO 

POPFPA 

DIVSNG 

CKRMZP 

ABS 

CHGSGN 

SGN 

SGNAE 

STKFP1 

HLFPA1 



Find sync, put stars in corner 

Put stars in corner 

Get transfer address for system 

System entry point 

Get a 2 byte address from tape (Ret in HL) 

Jump to system start address 

Display byte on current device (Device fig @ 409CH) 

Output »A f to video (DE saved) 

Line position indicator 

Scan keyboard, (DE NOT LOST) 

Input up to 240 chars, into f HL f buffer. 

End of I ine has zero byte. 

Get one char, input from keyboard, (DE saved) 

Reset deviceso Set output back to CRT 

Output byte In f A ! to printer (DE saved) 

I/O Driver 

Keyboard scan driver 

Video df spl ay driver 

Printer driver 

Test printer status. Z Flag set if ready. 

Buffer input routine 

Cold Start 

Disk bootstrap 

Proper re-entry to Level II BASIC 

RST ! s loaded into RAM starting § 4000H 

FPA1 + 0.5 -> FPA1 

(HL) + FPA1 -> FPA1 

(HL) - FPA1 -> FPA1 

Subtract single precision 

Add single precision 

Zero exponent of FPA1 

Overf I ow error 

SNG? 1.0 

SNG: .598979 

SNG: .981471 

SNG: 2.88539 

Log (Bcmd DFH) 

SNG: .707107 (SQR(2)/2) into BCDE 

SNG: -:5 Into BCDE 

SNG: .693147 into BCDE 

Multiply single precision 

FPA1 / 10 -> FPA1 

Restores old BCDE from stack 

Divide single precision 

Tests values for Minus, Zero, or Plus 

ABS (Bcmd D9H) 

Change sign routine 

SGN (Bcmd D7H) 

Alternate entry point to SGN 

Puts a real value onto the stack 

(HL) — > FPA1 



\-3 



End Label Description 



09B4 

09BF 

09C2 

09CB 

09D2 

09D3 

OAOC 

0A39 

0A78 

0A7F 

0A7F 

0A9A 

0A9A 

0A9D 

0AA3 

0AB1 

0AB9 

OACC 

OACF 

OADB 

OAEC 

OAEF 

0AF4 

0AF6 

0B26 

0B37 

0B3D 

0B59 

0BC7 

0BD2 

0BF2 

OC5B 

0C70 

0C77 

0D33 

0D45 

ODA1 

0DD4 

0DE5 

0E65 

0E6C 

OF 18 

OFAF 

OFBD 

OFBE 

1364 

136C 

1374 

137C 

1384 

13D8 

13E7 



0AA8 



0B58 
0B9D 



0C6F 



0D44 
0D56 

ODDB 



136B 
1373 
137B 
1384 
138B 
13E1 



SNGFPA 

LDFPA1 

LDFPHL 

FPAMEM 

MOVTDE 

MOVTHL 

CPRSNG 

CPRINT 

CPRDBL 

CI NT 

USRINP 

SAVINT 

USROUT 

SET I NT 

MINVAL 

CSNG 

DBLSNG 

SNGINT 

HLSNG 

CDBL 

SETDBL 

SETSNG 

CHKSTR 

TMERR 

FIX 

INT 

INTSNG 

INTDBL 

SUB I NT 

ADD I NT 

MUL I NT 

ABSINT 

SUBDBL 

ADDDBL 

DBLMA 

DBLMS 

MULDBL 

TENDBL 

DIVDBL 

ASCB I N 

ASCI NT 

DIVTEN 

WRLNO 

BINASC 

ASCUSG 



HLFDBL 

P10TAB 
SQR 



BCDE (Single precision val.) — > FPA1 

Load FPA1 into BCDE 

Load real value pointed to by HL 

Transfer FPA1 to (HL) 

Move data from (HL) — > (DE) 

Move data from (DE) — > (HL) 

Compare single precision 

Integer compare 

Double precision compare 

CI NT (Bcmd EFH) 

Put ? USR ? function argument in HL 

Save integer in HL to FPA1 . Vartyp -> Int (2) 

Make HL output of f USR f call 

Change TYPFLG to INT 

SNG: -32768 / BCDE 

CSNG (Bcmd FOH) 

Convert double to single 

Convert integer to single 

Convert HL to single 

CDBL (Bcmd F1H) 

Change type flag to DBL 

Change type flag to single 

Check type for string and TMERR if not 

Type mismatch error 

Fix (Bcmd F2H) 

Int (Bcmd D8H) 

Take integer of single 

Take integer of double 

Integer subtract 

integer add 

Integer multiply 

Take absolute value of integer 

Subtract double 

Add double 

Double precision mantissa addition 

Double precision mantissa subtract 

Double precision 

DBL; 10„0 

Double precision 

Convert ASCII buffer to binary value 

Convert ASCII buffer to integer value 

Divide by ten (10) 

Write current line number to video 

Convert binary value to ASCII 

Convert ASCII from ? USING S routine 

DBL i 1D+10 

DBL; 1D+15 

DBL: 1D+16 

DBL: .5 

DBL: 1D+16 

Power of ten table: 10000 

SQR (Bcmd DDH) 



mantissa 
mantissa 
multiply 

d i v i s i on 



1000,100,10,1 



A~ 4 



Start 


End 


Label 


Descr 


iDtion 


13F2 




POWER 


Raise 


to a power (Ex; X raised to the N 


1439 




EXP 


Exp 


(Band E0H) 


143C 


1441 




SNG; 


1.4427 


1479 


1499 


EXPTBL 


Exp data table 


147A 


147D 




SNG; 


-1 .41316E-4 


147E 


1481 




SNG: 


1 .32988E-3 


1482 


1485 




SNG; 


-8.30136E-3 


1486 


1489 




SNG; 


.0416574 


148A 


148D 




SNG; 


-0.166665 


148E 


1491 


HALF 


SNG; 


.5 


1492 


1495 


NEGONE 


SNG; 


-1 .0 


1496 


1499 


0NE2 


SNG; 


1.0 


14C9 




RND 


Rnd 


(Bcmd DEH) 


1541 




COS 


Cos 


(Bcmd E1H) 


1547 




SIN 


Sin 


(Bcmd E2H) 


154A 


154F 


TWOPI 


SNG; 


6.28319 (2 PI ) / BCDE 


158B 


15A7 


SCDTBL 


Sin/Cos data table 


158B 


158E 


HALFPI 


SNG; 


1.5708 (PI/2) 


158F 


1592 


QUARTR 


SNG; 


.25 


1593 


15A7 


SINTBL 


Sin data table 


1594 


1597 




SNG; 


39.7107 


1598 


159B 




SNG; ■ 


-76.575 


159C 


159F 




SNG; 


81 .6022 


15A0 


15A3 




SNG; ■ 


-41 .3417 


15A4 


15A7 


TWOPI 


SNG; 


6.28319 (2 PI ) 


15A8 




TAN 


Tan 


(Bcmd E3H) 


15BD 




ATN 


Atn 


(Bcmd E4H) 


15E3 


1607 


ATNTBL 


Arctar 


i data table 


15E4 


15E7 




SNG; 


2.86623E-03 


15E8 


15EB 




SNG; 


-0.0161657 


15EC 


15EF 




SNG; 


0.0429096 


15F0 


15F3 




SNG; 


-0.0752896 


15F4 


15F7 




SNG; 


0.106563 


15F8 


15FB 




SNG; 


-0.142089 


15FC 


15FF 




SNG; 


0.199936 


1600 


1603 




SNG; 


-0.333331 


1604 


1607 


0NE3 


SNG; 


1.0 


1608 




FUNTBL 


Funct 


on Table 


1650 


1820 


BCTBL 


BASIC 


command table (b7 of 1st char, of 


1822 




CMDTBL 


Entry 


points for command table (BCTBL) 


189A 




HRCHY 


Algebraic heirarchy table 


18C9 


18F6 


ERRTBL 


Error 


abbreviation table 


1928 


192E 


DREADY 


Data ! 


? READY<CR>» 


1930 


1934 


DBREAK 


Data "Break 81 


1963 




CHKMEM 


Check 


If enough memory available 


197A 




OMERR 


Out ol 


■ memory error 


198A 




NRERR 


No resume error 


1997 




SNERR 


Syntax error 


199A 




DOERR 


Division by zero error 


199D 




NFERR 


Next without For error 


19A0 




RWERR 


Resume without error 



X**N) 



reserved word high) 



A- 5 



Start 


End 


Label 


Descript 


ion 


19A2 




ERRPRT 


Output an error msg 


1A19 




ENTL I I 


Entry po 


int to Level II BASIC 


1A25 




READY 


Load "READY" message 


1A5A 




ATOOFF 


Turn AUTO off 


1A60 




AUTOON 


INC to new AUTO I ine number 


1A76 




NOAUTO 


Auto-of f 


1 ine input 


1B49 




NEW 


New 


(Bcmd BBH) 


1B4D 




I NIT 


Initial ize work area 


1BB3 




QINPUT 


Print "? 


11 . Input up to 240 characters 


1BC0 




SPACK 


Source pack routine 


1C90 


1C95 


RST24 


CP HL.DE 


(A lost) 


1C96 


1CA0 


RST8 


(Parser) 


CP (Syntax). RST16 If equal . Else 


1CA1 




FOR 


For 


(Bcmd 81 H) 


1D78 


1D90 


RST16 


Inc HL/ 
If byte i 


If (HL) is ASCI I 0-9 SCF* 

at HL=zero set Z fig. Routine skips 


1D91 




RESTOR 


Restore 


(Bcmd 90H) 


1DA9 




STOP 


Stop 


(Bcmd 94H) 


1DAE 




END 


End 


(Bcmd 80H) 


1DE4 




CONT 


Cont 


(Bcmd B3H) 


1DE9 




CNERR 


Can s t continue error 


1DF7 




TRON 


Tron 


(Bcmd 96H) 


1DF8 




TROFF 


Troff 


(Bcmd 97H) 


1E00 




DEFSTR 


Def str 


(Bcmd 98H) 


1E03 




DEFINT 


Def Int 


(Bcmd 99H) 


1E06 




DEFSNG 


Defsng 


(Bcmd 9AH) 


1E09 




DEFDBL 


Defdbl 


(Bcmd 9BH) 


1E3D 




CKA2Z 


Check i f 


a character A-Z 


1E4A 




FCERR 


I I legal • 


function cal I error 


1E4F 


1E79 


GETLN 


Scan I ine for 1 ine number 


1E4F 


1E79 


GTLNUM 


Get 1 ine 


number 


1E5A 




CONVRT 


Convert I 


Dytes in buffer to two-byte DE value 


1E7A 




CLEAR 


Clear 


(Bcmd B8H) 


1EA3 




RUN 


Run 


(Bcmd 8EH) 


1EB1 




GOSUB 


Gosub 


(Bcmd 91 H) 


1EC2 




GOTO 


Goto 


(Bcmd 8DH) 


1ED9 




ULERR 


Undef ine< 


i I ine error 


1EDE 




RETURN 


Return 


(Bcmd 92H) 


1EEA 




RGERR 


Return w 


Ithout Gosub error 


1F05 




DATA 


Data 


(Bcmd 88H) 


1F07 




L_L_ Od 


El se 


(Bcmd 95H) 






REM 


Rem 


(Bcmd 93H) 


1F21 




LET 


Let 


(Bcmd 8CH) 


1F6C 




ON 


On 


(Bcmd A1H) 


1FAF 




RESUME 


Resume 


(Bcmd 9FH) 


1FF4 




ERROR 


Error 


(Bcmd 9EH) 


2003 




UEERR 


Unprintable error 


2008 




AUTO 


Auto 


(Bcmd B7H) 


2039 




IF 


If 


(Bcmd 8FH) 


2067 




LPRINT 


Lprlnt 


(Bcmd AFH) 


206F 




PRINT 


Print 


(Bcmd B2H) 


20FE 




OUTCR 


Output a 


CR to current device 



SNERR, 



spaces, 



A-6 



Start 


End 


Label 


Description 








2137 




TAB 


Tab( 


(Bcmd 


BCH) 






2169 


2177 


COFFIO 


If cassette is on,, turn 


off 




2178 


217D 


DREDO 


Data "1 


'REDO" 








21 8A 




FDERR 


Bad fil 


e data error 






21 9A 




INPUT 


Input 


(Bcmd 


89H) 






21 EF 




READ 


Read 


(Bcmd 


8BH) 






2212 




ODERR 


Out of 


data error 






227C 


2285 


PEXTIG 


Load "i 


'Extra Ignored" 






2286 


2294 


DEXTIG 


Data "< 


'Extra ignored" 






22A0 




0DERR2 


Out of 


data error (also 


§ 221 2H) 




22BC 




NEXT 


Next 


(Bcmd 


87H) 






2490 




Dl VINT 


Integer divide 








249F 




ADD 


+ 


(Bcmd 


CDH) 






249F 




FNSCAN 


Scan for functions 






24A0 




MOERR 


Missing operand error 






24CF 




ERR 


Err 


(Bcmd 


C3H) 






24DD 




ERL 


Erl 


(Bcmd 


C2H) 






24ED 




VARPTR 


Varptr 


(Bcmd 


COH) 






2532 




SUB 


- 


(Bcmd 


CEH) 






25D9 




RST32 


From RST 32s P/U 


flag § 


40AFHo If 


<8 SCF, RRT 9 


25F7 




OR 


Or 


(Bcmd 


D3H) 






25FD 




AND 


And 


(Bcmd 


D2H) 






2608 




DIM 


Dim 


(Bcmd 


8AH) 






2733 




DDERR 


Red i mens ioned array error 




273D 




BSERR 


Subscri 


pt out of 


range error 




27C9 




MEM 


Mem 


(Bcmd 


C8H) 






27D4 




FRE 


Fre 


(Bcmd 


DAH) 






27F5 




POS 


Pos 


(Bcmd 


DCH) 






27FE 




USR 


Usr 


(Bcmd 


C1H) 






2831 




IDERR 


II legal 


direct error 






2836 




STR 


Str$ 


(Bcmd 


F4H) 






28A1 




STERR 


String 


formula too compl 


ex error 




28A7 




OUTLN 


Output 


a 1 ine unti 1 zero (0) 




28DB 




OSERR 


Out of 


string space error 




298F 




ADDSTR 


Concatenate two strings 






29A3 




LohRR 


String 


too long error 






2A03 




LEN 


Len 


(Bcmd 


F3H) 






2A0F 




ASC 


Asc 


(Bcmd 


F6H) 






2A1F 




CHR 


Chr$ 


(Bcmd 


F7H) 






2A2F 




STRING 


Strlng$ (Bcmd 


C4H) 






2A61 




LEFT 


Left$ 


(Bcmd 


F8H) 






2A91 




RIGHT 


Right$ 


(Bcmd 


F9H) 






2A9A 




MID 


Mid$ 


(Bcmd 


FAH) 






2AC5 




VAL 


Val 


(Bcmd 


F5H) 






2AEF 




INP 


Inp 


(Bcmd 


DBH) 






2AFB 




OUT 


Out 


(Bcmd 


AOH) 






2B01 




STEP 


Step 


(Bcmd 


CCH) 






2B29 




LLIST 


LList 


(Bcmd 


B5H) 






2B2E 




LIST 


List 


(Bcmd 


B4H) 






2B75 




MSGOUT . 


. Output 


a msg unti 1 zero 


(0) 




2B7E 




STFUNP 


Scan text until zero. Unpack into 


INBUFP buffer 



A-7 



Start End Label Description 



2BC6 

2BF5 

2C1F 

2C8A 2C92 

2CA5 2CA8 

2CAA 

2CB1 

2CBD 

2E60 

2FC4 

37DE 

37DF 

37E0 

37E1 

37E4 

37E8 

37EC 

37ED 

37EE 

37EF 

37F0 37FF 

3800 3BFF 

3801 

3802 

3804 

3808 

3810 

3820 

3840 



3880 
3C00 
3C00 
3C40 
3C80 
3CC0 
3D00 
3D40 
3D80 
3DC0 
3E00 
3E40 
3E80 
3EC0 
3F00 
3F40 
3F80 
3FC0 
4000 
4000 
4003 



3FFF 
3C3F 
3C7F 
3CBF 
3CFF 
3D3F 
3D7F 
3DBF 
3DFF 
3E3F 
3E7F 
3EBF 
3EFF 
3F3F 
3F7F 
3FBF 
3FFF 
4014 



DELETE 

CSAVE 

CLOAD 

PBAD 

DBAD 

PEEK 

POKE 

USING 

EDIT 

NOT 

COMSTA 

COMDAT 

INTLAT 

DSELCT 

CSELCT 

LPTADR 

FDCADR 

TRKREG 

SECREG 

DATREG 

KEYMEM 

KB1 

KB2 

KB3 

KB4 

KB5 

KB6 

KB7 

SHIFT 

CRTMEM 

CRTR1 

CRTR2 

CRTR3 

CRTR4 

CRTR5 

CRTR6 

CRTR7 

CRTR8 

CRTR9 

CRTR10 

CRTR11 

CRTR12 

CRTR13 

CRTR14 

CRTR15 

CRTR16 

L2VECS 

RST8 

RST16 



Delete (Bcmd B6H) 

CSave (Bcmd BAH) 

CLoad (Bcmd B9H) 

Prints "BAD" on screen 

Data "BAD<CR>" 

Peek (Bcmd E5H) 

Poke (Bcmd B1H) 

Using (Bcmd BFH) ' 

Edit (Bcmd 9DH) 

Not (Bcmd CBH) 

Communication Status Address 

Communication Data Address 

Interrupt Latch Address 

Disk drive select latch address 

Cassette select latch address 

Line printer address 

Floppy disk controller address 

Floppy disk track register 

Floppy disk sector register 

Floppy disk data register 

Same as 37E0-37EF 

Keyboard memory ( 1 *2, 4^8,10, 20 P 40^80H) 

Location for: §ABCDEFG 



Location fori 

Location fori 

Location fori 

Location fori 

Location fori 
Location 



H 
P 
X 

1 
8 9 



I J 

Q R 

Y Z 

1 2 



K L M N 
S T U V W 

3 4 5 6 7 

; , - . / (Also ()*+<=>?) 



fori Enter Clear Break 

Arrow D„ Arrow L* Arrow R* Arrow Space 
Location fori Shift (Electric pencil control key § 10H) 
Video display memory 
Row 1 on CRT 
Row 2 
Row 3 
Row 4 
Row 5 
Row 6 
Row 7 
Row 8 
Row 9 
Row 10 
Row 11 
Row 12 
Row 13 
Row 14 
Row 15 
Row 16 

Level II fixed RAM vectors 

RST81 1C96; (Parser) CP ( Syntax )/RST1 6 IF=/Else SNERR 
RSTI61 1D78; INC HL/ I f ASCII 0-9 SCF/Set if Z/Skip Spa 
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Start End Label Description 



4006 

4009 

400C 

400F 

4012 

4015 

4015 

4016 

4018 

401D 

401D 

401 E 

4020 

4022 

4023 

4025 

4025 

4026 

4028 

4029 

402A 

402D 

4030 

4033 

4036 

4036 

4037 

4038 

4039 

403A 

403B 

403C 

403D 

403E 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4049 

404B 

404C 

404C 

40 4D 

4052 

405D 

405E 



401C 

4017 
401C 
4024 

401F 
4021 

4024 
402C 

4027 



402C 
402F 
4032 
4035 
403C 



RST24 RST24s 1C90; CP HL,DE (A lost.) 

RST32 RST32s 25D9; If TYPFLG<8, SCF/RRT/M= INT,Z=STR,PO=SNG,NC=DBL 

RST40 RST40; DOS Command Processor 

RST48 RST48; Debug breakpoint 

RST56 RST56s Interrupt mode 1 

KEYDCB Keyboard DCB 

KBTYP DCB Type (01) 

KBDADR Driver address (03E3H) 

KBCONS Constants K I 

CRTDCB Video DCB 

CRTTYP DCB Type (07) 

CRTADR Driver address (0458H) 

CURPOS Cursor position on screen (L^H) 

CURCHR Cursor character 

CRTCON Constants D 

LPTDCB Linepr inter DCB 

LPTTYP DCB Type (06) 

LPTADR Driver address (058DH) 

LPTLPP Number of I ines/page 

LPTLCT Line counter 

LPTCON Constants P R 

DOSVEC DOS Transfer Vector 

ABORT ABORT under DOS (unused under LID 

I0DERR Called by driver after illogical driver call 

KB I MAG Keyboard image 

KBIM1 01H 

KBIM2 02H 

KBIM3 04H 

KBIM4 08H 

KBIM5 10H 

KBIM6 20H 

KBIM7 40H 

CSTATU Cassette status byte 

403F Unused under Level II 

RTSC 25 MSec Real-time scheduling counter 

SECS Seconds 

MINS Minutes 

HRS Hours 

YR Year 

DAY Day 

MO Month 

4048 LOW Contains address of lowest 

404A DOSMEM DOS memory size determined 

INTMSK Interrupt mask 

404F Unused under Level II (interrupt processing under DOS) 

INTENB Interrupts enabled (bit mask) 

405C INTTBL Interrupt jump address for Interrupts 0-7 

4053 COM I NT Communications interrupt vector 

DEBUG1 Debugs A or H (ASCII or H) or LSB of first breakpoint 

DEBUG2 Debugs 0=Normal screen,, <>0 = Full screens 
or MSB of first BREAKPT 



byte of avai I 
at power-up 



mem under DOS 
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Start End Label Description 



405F 
4060 
4062 
4063 
4065 

407D 

407F 

4080 

408E 

4090 

4093 

4096 

4099 

40 9A 

409B 

40 9C 

409D 

409E 

40 9F 

40A0 

40A2 

40A4 

40A6 

40A7 

40A9 

40AA 

40AD 

40AE 

40AF 

40 BO 

40B1 

40B3 

40B5 

40D3 

40D4 

40D6 

40D8 

40D8 

40DA 

40DC 

40DE 

40DF 

40E1 

40 E2 

40E4 

40E6 

40E8 

40EA 

40EC 

40EE 



4061 

4064 
407C 



407E DSKBSP 



40 8D 
408F 
4092 
4095 
4098 



40A1 
40A3 
40A5 

40 A8 

40AC 



40 B2 
40 B4 
40D2 

40D5 
40D7 
40D9 

40DB 



40 EO 

40 E3 
40E5 
40 E7 
40E9 
40 EB 
40ED 
40EF 



RND 

= port, 95 = Ret) 



DEBUG3 Debugs Instruction byte at breakpoint 

DEBUG4 Debug; Second breakpoint or single-step 

DEBUG5 Debug; Instruction byte at second breakpoint 

DEBUG6 Debug; Address currently being displayed on screen 

DEBUGS DEBUG; Register save area 

(AF,BC,DE,HL,AF\BC ? ,DE ? ,HL f , IX, I Y,SP,PC) 

Disk boot stack pointer beginning location 

Unused under Level I I 

D I VRAM RAM used with single precision divide 

USRADR USR function address 

RNDMUL Mantissa of multiplicative constant for 

INPRAM INP function (93 = "IN" instruction, 94 

OUTRAM OUT function (96=0ut,97=port,98=Ret) 

KEYBUF lnkey$ buffer or flag (last key hit on keyboard) 

ERRNBR Level I I Error 

LPTPOS Line printer line position 

OUTBFL Output bit flag; 0=Video, 1=Lp, 80=Cassette 

LINLEN Maximum length of a line on the screen 

PRNTZN Next print zone (reached after a comma as in ?A,B,C) 

Unused under Level I I 

STRNGS Beginning of string area 

CURL IN Current line number 

PGMBGN Pointer to start of BASIC program 

CRTPOS Current line position on Video 

INBUFP Input buffer pointer 

DATAFL Data statement f I ag 

RNSEED RND function seed 

Unused under Level I I 

DLFLG Dimension/Let flag from parser 

TYPFLG Current variable type (8=DBL, 4=SGL, 3=STR, 2=INT) 

TYPFL2 Variable type for FPA2 

LSTBYT Address of last usable byte in memory (BASIC) 

STRPTR String parameter pointer 

STPRMS String param* area* 3 byte sets. 1ST=Length, 2-3=Address 

STRLEN Length of current string 

STRADR Address of current string 

STRFRE Next free byte In string area 

CURTKN Stores pointer to current token 

PUCBYT Printusing control byte; Bit2=*,3=+,4^$,6=Comma 

LSTDTL Last data I ine number read 

FORFLG Set to 64 on FOR loop* Prevent subscripted variable« 

RDINFL Read/ Input flag; Non-zero=read / Zero = input 

TRAADR Transfer address for system 

AUTOFL Auto flag (Non-zero=0N* Zero after BREAK) 

AUTOLN Auto line number 

AUTINC Auto increment 

LLEND Points to end of previous line or current line 

SPSAV Stack pointer save area 

ERRLIN Line containing error 

CURNUM Current I ine number 

PLEND Pointer to previous line end 
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Start End Label 



40F0 

40F2 

40F7 

40F9 

40FB 

40FD 

40FF 

40FF 

4101 

411B 

41 ID 

41 ID 

4121 

4121 

4124 

4125 

4127 

4130 

4152 

4152 

4155 

4158 

41 5B 

41 5E 

4161 

4164 

4167 

416A 

41 6D 

4170 

4173 

4176 

4179 

417C 

417F 

4182 

4185 

4188 

41 8B 

41 8E 

4191 

4197 

41 9A 

41 9D 

41 A0 

41 A3 

41 A6 

41 E6 
4200 

42 E8 
42 E9 



40F1 

40F8 
40FA 
40FC 
40FE 
40 AO 
4100 
411 A 

4124 
4120 
4124 
4123 



41 2E 
41 A5 



42 E7 
42FF 



ERRPRC 

ERRFLG 

NBIBP 

SCLERS 

ARRAYS 

ENDVAR 

RESTLN 

DATPTR 

TYPTBL 

TRCFLG 

REAL8 

REAL8M 

FPA1 

FPA1M 

FPA1E 

EXPWRK 

FPA2 

ASCBUF 

DBJPVS 

CVI 

FN 

CVS 

DEF 

CVD 

EOF 

LOC 

LOF 

MKI 

MKS 

MKD 

CMD 

TIME 

OPEN 

FIELD 

GET 

PUT 

CLOSE 

LOAD 

MERGE 

NAME 

KILL 

LSET 

RSET 

INSTR 

SAVE 

LINE 

ERHOOK 

I0BUFF 

DOS! OB 

CONO 

WRKRAM 



Address of "ON ERROR" 

FFH after error. Zero if no error 

Ptr to next byte to be used with "CONT" 

Pointer to beginning of scalers 

Pointer to beginning of arrays 

End location of array variables 

Used with RESTORE, Keeps current line number for "READ" 

Pointer to del i meter after last DATA Value read 

Variable types for each letter A-Z 

TRON - AF, TROFF - 

Double precision variable 

Extended mantissa : Double precision 

Floating Point Accumulator 

Mantissa 

Characteristic (exponent) 

Exponent work area 

Floating Point Accumulator #2 

Numeric work areas converted binary to ASCII number 

Disk BASIC jump vectors 

CVI: 

FN i 

CVS: 

DEF: 

CVD: 

EOF: 

LOC: 

LOF: 

MKI$: 

MKS$: 

MKD$: 

CMD: 

TIMES: 

OPEN: 

FIELD: 

GET: 

PUT: 

CLOSE: 

LOAD: 

MERGE: 

NAME: 

KILL: 

LSET: 

RSET: 

INSTR: 

SAVE: 

LINE: 



(DBcmd E6H) 

(DBcmd BEH) 

(DBcmd E7H) 

(DBcmd BOH) 

(DBcmd E8H) 

(DBcmd E9H) 

(DBcmd EAH) 

(DBcmd EBH) 

(DBcmd ECH) 

(DBcmd EDH) 

(DBcmd EEH) 

(DBcmd 85H) 

(DBcmd C7H) 

(DBcmd A2H) 

(DBcmd A3H) 

(DBcmd A4H) 

(DBcmd A5H) 

(DBcmd A6H) 

(DBcmd A7H) 

(DBcmd A8H) 

(DBcmd A9H) 

(DBcmd AAH) 

(DBcmd ABH) 

(DBcmd ACH) 

(DBcmd C5H) 

(DBcmd ADH) 

(DBcmd 9CH) 
Hook to Disk BASIC for long error msgs 
I/O Buffer 

DOS I/O buffer for sectors from disk 
Constant: 
Begin BASIC program and work area 
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Start End Label Description 



4300 
4300 
4308 
4309 

430A 
430C 
430E 
430F 
4315 
4318 
4400 
4405 
4409 
440D 
4410 
4413 
4416 
4419 
441C 
4420 
4424 
4428 
442C 
4430 
4433 
4436 
4439 
443C 
443F 
4442 
4445 
4448 
4467 
446A 
446D 
4470 
4473 
4476 
4FFF 
51FF 
5200 
7FFF 
BFFF 
FFFF 



5FFF 
4307 



430B 
430D 



4317 
4347 



6FFF 



TRSDOS DOS routines 

DIRTRK Locations of the directory tracks of the different drives 

CURDRV Current drive being used 

CDRVBT Current drive being used with correct bit pattern 

already calcuaited and stored at this address. 

CURDCB Address of currently active DCB 

CURBUF Currently active I/O buffer for file reads/writes* 

CUROVL Current overlay In memory 

OVLDBG Overlay/Debug flag 

DEBUGV Debug vector 

DOSBUF DOS Command buffer 

WMSTRT Warmstart 

CMDINT Command Interpreter entry point 

POSTER Post error message entry point 

DEBUG Enter the real-time debugging facility 

ACT I NT Activate an interrupt task 

TSKOFF Turn off an interrupt task 

TSKCHG Change state of an interrupt task 

DCTTSK Deactivate an interrupt task 

GTSPEC Get a file specification from buffer 

IN IT INST (DOS file cal I. P#6»8) 

OPEN OPEN (DOS file calk P#6-9) 

CLOSE CLOSE (DOS file calk P#6-1 1 ) 

KILL KILL (DOS file calk P#6-1 1 ) 

LOAD Load a machine language format file 

RUN Load and execute machine language file 

READ READ (DOS file calk P#6~9) 

WRITE WRITE a file by sector or Logical record 

VERIFY Write and verify a file write 

REWIND Rewind a file to the beginning 

POSN POSN (DOS file calk P#6-9) 

BKSPA Backspace a file 

POSEOF Position a file to EOF 

OUTLIN Output a I ine to the CRT 

OUTLP Output a I Ine to the printer 

TIME Move current TIME to 8-byte HL buffer 

DATE Returns DATE Into 8-byte HL buffer 

DEFEXT Add default f 1 1 e extension 

OPTION Get optional command flags from buffer 

LAD4K Last RAM address in a 4K TRS-80 

ENDOVR End of DOS overlay area 

DSKUTL Disk BASIC/DOS utilities/User memory 

LAD16K Last RAM address in a 16K TRS-80 

LAD32K Last RAM address In a 32K TRS-80 

LAD48K Last RAM address in a 48K TRS-80 
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APPENDIX Bs INTERFACING EXAMPLES 



This appendix contains three programs which utilize 
the routines described in this book to perform their func- 
tions., 

The first example is a program which inputs a double 
precision value from the keyboard and displays the number 
in hexadecimal form after the machine has converted it. 
The program includes the error recovery routines. 

Beginning on page B-4 F one will find a program that 
solves quadratic equations through the use of the math 
routines* 

The final program which begins on page B-8 is a random 
number generator test which illustrates the use of the 
ASCII conversion and the random number generator routines. 

These examples can be used by either entering and 
assembling the source statements provided or by entering 
the hex object code from the assembled output into memory 
using T-Bug or a similar utility. 
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00100 , 


####* 












00110 




DOUBLE 


PRECISION NUMBERS 


> IN HEXADECIMAL 




00120 




INCLUDES ERROR RECOVERY 


PRINCIPLES 




00130 


.#*•#** 










7000 


00140 




ORG 


7000H 






7000 310070 


00150 [ 


3EG i N 


LD 


SP,$ 




; SET STACK POINTER 


7003 CDC901 


00160 
00170 


.*#*## 
t 


CALL 


01C9H 




iCLEAR SCREEN 




00180 


■ 


RAM INITIALIZATION ROUTINE 




00190 


,***** 
f 










7006 118040 


00200 




LD 


DE.4080H 




;RAM INITIALIZATION 


7009 21F718 


00210 




LD 


HLJ8F7H 






700C 012700 


00220 




LD 


BC.27H 






700F EDBO 


00230 
00240 




LDIR 










00250 


'< 


SETUP ERROR RECOVERY 


ROUTINE 




00260 












7011 210070 


00270 




LD 


HL, BEGIN 






7014 22E840 


00280 




LD 


(40E8H),HL 






7017 21A641 


00290 




LD 


HL.41A6H 






701 A 36C3 


00300 




LD 


(HL),0C3H 






701C 23 


00310 




INC 


HL 






701D 110070 


00320 




LD 


DE,BEGIN 






7020 73 


00330 




LD 


(HL),E 






7021 23 


00340 




INC 


HL 






7022 72 


00350 




LD 


(HL),D 






7023 3EC9 


00360 




LD 


A.0C9H 




|SET UP A RETURN 


7025 32BE41 


00370 




LD 


(41BEH),A 






7028 32D041 


00380 




LD 


(41D0H),A 






702B 32C141 


00390 




LD 


(41C1H),A 






702E 32F240 


00400 
00410 


P 


LD 


(40F2H),A 




|MUST BE <> 




00420 


> 


PROMPT 


USER INPUT OF 


NUMBER 




00430 


f 










7031 219C70 


00440 


START 


LD 


HL.MSG 






7034 CD6370 


00450 
00460 


t 


CALL 


MSGOUT 








00470 


> 


READ INPUT RESPONSE 








00480 












7037 213041 


00490 




LD 


HL,4130H 




;PT TO INPUT BUFFER 


703A 0614 


00500 




LD 


B,20 




; SET BUF SIZE 


703C CD4000 


00510 




CALL 


0040H 




j INPUT USER NUMBER 


703F AF 


00520 




XOR 


A 






7040 BO 


00530 




OR 


B 




;TEST FOR NO INPUT 


7041 CA2D40 


00540 
00550 


» 


JP 


Z,402DH 




; BACK TO DOS 




00560 


t 


BUFFER 


MUST END WITH 


HEX 00 




00570 


f 










7044 EB 


00580 




EX 


DE,HL 




1 INSERT ENDING ZERO 


7045 68 


00590 




LD 


L,B 




; BYTE COUNT TO BC 


7046 2600 


00600 




LD 


H,0 






7048 19 


00610 




ADD 


HL,DE 




;PT TO <ENTER> BYTE 


7049 3600 


00620 




LD 


(HL),0 




; PLACE A <0> INTO BUF 


704B EB 


00630 
00640 


t 


EX 


DE.HL 




; RESTORE BUF PTR 




00650 


1 


CONVERT ASCI i NUMBER 


IN 


BUFFER TO DOUBLE PREC 
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00660 ;***** 








704C CD650E 


00670 


CALL 


0E65H 


|CVRT TO BINARY 


704F 211D41 


00680 


LD 


HL.411DH 


iPOINT TO FPA1 EXTENDED 


7052 11B070 


00690 


LD 


DE, NUMBUF 


1 POINT TO MY BUFFER 


7055 CDD209 


00700 


CALL 


9D2H 


;MOVE FPA1 EXTENDED TO BL 


7058 21B070 


00710 


LD 


HL, NUMBUF 


1 POINT TO MY BUFFER 


705B CD7870 


00720 


CALL 


HEXOUT 


lOUTPUT NUMBER IN HEX 


705E CD6C70 


00730 


CALL 


WRRET 


;WRITE AN <ENTER> 


7061 18CE 


00740 

00750 ;#**** 


JR 


START 


; RECYCLE 




00760 | 


;MESSAGE OUTPUT ROUTINE 




00770 ;***** 








7063 7E 


00780 MSGOUT 


LD 


A,(HL) 


;P/U CHARACTER 


7064 B7 


00790 


OR 


A 


;TEST FOR ZERO 


7065 C8 


00800 


RET 


Z 


|RET IF SO 


7066 CD7270 


00810 


CALL 


WRBYT 


lELSE OUTPUT IT 


7069 23 


00820 


INC 


HL 


iBUMP POINTER 


706A 18F7 


00830 

00840 ****** 


JR 


MSGOUT 


|AND LOOP 




00850 ; 


MISCELLANEOUS OUTPUT 


ROUTINES 




00860 ****** 








706C 3E0D 


00870 WRRET 


LD 


A.ODH 


;WRITE AN <ENTER> 


706E 1802 


00880 


JR 


WRBYT 




7070 3E20 


00890 WRSPA 


LD 


A,20H 


;WRITE A <SPACE> 


7072 D5 


00900 WRBYT 


PUSH 


DE 


; WRITE ANY CHARACTER 


7073 CD3300 


00910 


CALL 


33H 




7076 D1 


00920 


POP 


DE 




7077 C9 


00930 


RET 






7078 CD7B70 


00940 HEXOUT 


CALL 


WRDBL 


;CVRT 4 BYTES 


707B CD7E70 


00950 WRDBL 


CALL 


WRHEX 


|CVRT 2 BYTES 


707E CD7070 


00960 WRHEX 


CALL 


WRSPA 




7081 CD8470 


00970 


CALL 


WR2 


iCVRT 1 BYTE 


7084 7E 


00980 WR2 


LD 


A,(HL) 


|P/U BYTE TO CONVERT 


7085 CB3F 


00990 


SRL 


A 


; SHI FT HIGH NYBBLE 


7087 CB3F 


01000 


SRL 


A 


1 INTO LOW ORDER POSITION 


7089 CB3F 


01010 


SRL 


A 




708B CB3F 


01020 


SRL 


A 




708D CD9470 


01030 


CALL 


WRDIG 


lOUTPUT A HEX DIGIT 


7090 7E 


01040 


LD 


A,(HL) 


;P/U THE BYTE AGAIN 


7091 E60F 


01050 


AND 


OFH 


; STRIP HIGH NYBBLE 


7093 23 


01060 


INC 


HL 


;PT TO NEXT BUFFER BYTE 


7094 C690 


01070 WRDiG 


ADD 


A,90H 


;CVRT A LOW ORDER NYBBLE 


7096 27 


01080 


DAA 




;T0 ASCI 1 HEX 


7097 CE40 


01090 


ADC 


A,40H 




7099 27 


01100 


DAA 






709A 18D6 


01110 

01120 ****** 


JR 


WRBYT 


lOUTPUT THE CHARACTER 




01130 ; 


DATA 


AREA 






01 140 |***** 








709C 45 


01150 MSG 


DEFM 


'ENTER YOUR 


NUMBER > ? 


4E 54 45 


i 52 20 59 4F ! 


55 






52 20 4E 


[ 55 4D 42 45 ! 


52 






20 3E 










7 OAF 00 


01160 


NOP 






0008 


01170 NUMBUF 


DEFS 


8 




7000 


01180 


END 


BEGIN 
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00010 


> 










00020 


» 


SOLUTION OF QUADRATIC EQUATION 




00030 


» 


VIA f 


MACHINE LANGUAGE 


INTERFACE 




00060 


9 








7000 


00070 




ORG 


07000H 




7000 310070 


00080 


BEGIN 


LD 


SPy $ 


|SET STACK POINTER 


7003 CDC901 


00090 
00100 




CALL 


01C9H 


;CLEAR SCREEN 




00110 


9 


RAM 


INITIALIZATION ROUTINE 




00120 


9 








7006 118040 


00130 




LD 


DE,4080H 




7009 21F718 


00140 




LD 


HLJ8F7H 




700C 012700 


00150 




LD 


BC.27H 




700F EDBO 


00160 
00170 


9 


LDIR 








00180 


9 


1 N IT 


ERROR RECOVERY 






00190 


9 








7011 210070 


00200 




LD 


HL, BEGIN 




7014 22E840 


00210 




LD 


(40E8H),HL 




7017 21A641 


00220 




LD 


HL P 41A6H 




701 A 36C3 


00230 




LD 


(HL),0C3H 




701C 23 


00240 




INC 


HL 




701D 110070 


00250 




LD 


DE,BEGIN 




7020 73 


00260 




LD 


(HL),E 




7021 23 


00270 




INC 


HL 




7022 72 


00280 




LD 


(HL),D 




7023 3EC9 


00290 




LD 


A.0C9H 


? SET UP A RETURN 


7025 32BE41 


00300 




LD 


(41BEH),A 




7028 32D041 


00310 




LD 


(41D0H),A 




702B 32C141 


00320 




LD 


(41C1H),A 




702E 32F240 


00330 
00340 


9 


LD 


(40F2H),A 


|MUST BE <> 


7031 3E41 


00350 


START 


LD 


A, f A s 


;INIT FOR f A s COEFFICIENT 


7033 CD 1871 


00360 




CALL 


GETNUM 




7036 217D71 


00370 




LD 


HL.VALA 


SXFR «A ? TO STORAGE 


7039 CDCB09 


00380 
00390 


1 


CALL 


09CBH 




703C 3E42 


00400 




LD 


A,»B' 


1 I NIT FOR ? B* COEFFICIENT 


703E CD 1871 


00410 




CALL 


GETNUM 




7041 218171 


00420 




LD 


HL f, VALB 


|XFR 9 B f TO STORAGE 


7044 CDCB09 


00430 
00440 


e 
9 


CALL 


09CBH 




7047 3E43 


00450 




LD 


A, ? C ? 


jINIT FOR f C ? COEFFICIENT 


7049 CD 1871 


00460 




CALL 


GETNUM 




704C 218571 


00470 




LD 


HL,VALC 


?XFR »C» TO STORAGE 


704F CDCB09 


00480 
00490 


9 


CALL 


09CBH 






00500 


9 


CALCULATE »B*B f 






00510 


9 








7052 218171 


00520 




LD 


HL.VALB 




7055 CDB109 


00530 




CALL 


09B1H 


1 ? B« TO FPA1 


7058 CDBF09 


00540 




CALL 


09BFH 


1 ? B* TO RFPA FROM FPA1 


705B CD4708 


00550 




CALL 


0847H 


S f B* * 'B ? 


705E CDA409 


00560 
00570 


***x*% 

9 


CALL 


09A4H 


1 STACK »B^B 9 




00580 


9 


CALCU 


ILATE MAC 





B-4 





00590 


9 








7061 217D71 


00600 




LD 


HL ? VALA 




7064 CDB109 


00610 




CALL 


09B1H 


,t A i T0 FPA1 


7067 218571 


00620 




LD 


HL.VALC 




706A CDC209 


00630 




CALL 


09C2H 


;»C TO RFPA 


706D CD4708 


00640 




CALL 


0847H 


;A * C 


7070 217871 


00650 




LD 


HL.FOUR 




7073 CDC209 


00660 




CALL 


09C2H 


;'4» TO RFPA 


7076 CD4708 


00670 
00680 


9 


CALL 


0847H 


;4 * A * C 




00690 


9 


CALCULATE B*B - 4AC 






00700 


9 








7079 C1 


00710 




POP 


BC 


|RCVR f B*B f 


707A D1 


00720 




POP 


DE 




707B CD 1307 


00730 
00740 


f 


CALL 


0713H 


;B*B - 4AC 




00750 


9 


TEST DETERMINANT FOR < 


ZERO 




00760 


9 








707E 217271 


00770 




LD 


HL.ZERO 




7081 CDC209 


00780 




CALL 


09C2H 


;»ZERO» TO RFPA 


7084 CD0C0A 


00790 




CALL 


OAOCH 


I COMPARE SNGL 


7087 2807 


00800 




JR 


Z, REAL 


^SOLUTION IS IMAGINARY IF 


7089 F29070 


00810 




JP 


P.REAL 


jDETERMINANT IS NEGATIVE 


708C CD8209 


00820 




CALL 


0982H 


|CHG SIGN OF FPA1 


708F 3E 


00830 




DEFB 


3 EH 


iCONSTRUCT f LD A,OAFH f 


7090 AF 


00840 


REAL 


XOR 


A 


;FLAG=0->REAL # FLAG<>0->iMAG 


7091 327C71 


00850 




LD 


(FLAG), A 


;SET REAL/ IMGNRY FLAG 


7094 CDE713 


00860 




CALL 


13E7H 


j TAKE SQUARE ROOT 


7097 CDA409 


00870 




CALL 


09A4H 


1 STACK SQRT(B*B-4AC) 


709A CDF970 


00880 




CALL 


TWOA 


; f 2A f TO FPA1 


709D C1 


00890 




POP 


BC 




709E D1 


00900 




POP 


DE 


jRCVR NUMERATOR 


709F CDA208 


00910 




CALL 


08A2H 


;SQRT(B*B-4AC)/2A 


70A2 218971 


00920 




LD 


HL.TEMP 




70A5 CDCB09 


00930 




UALL 


09CBH 


;& STORE IN TEMP 


70A8 CDF970 


00940 




CALL 


TWOA 


; f 2A f TO FPA1 


70AB 218171 


00950 




LD 


HL.VALB 




70AE CDC209 


00960 




CALL 


09C2H 


! f B* TO RFPA 


70B1 CDA208 


00970 




CALL 


08A2H 


;B/2A 


70B4 3A7C71 


00980 




LD 


A, (FLAG) 


fTEST REAL/ IMGNRY FLAG 


70B7 FEOO 


00990 




CP 







70B9 201 D 


01000 




JR 


NZ, IMGNRY 




70BB CDA409 


01010 




CALL 


09A4H 


;& STACK IT 


70BE 218971 


01020 




LD 


HL.TEMP 


;PT TO TEMP 


70C1 CD0B07 


01030 




CALL 


070BH 


;& ADD TO B/2A 


70C4 CD 1271 


01040 




CALL 


ANSWER 




70C7 218971 


01050 




LD 


HL.TEMP 




70CA CDB109 


01060 




CALL 


09B1H 


!?TEMP f TO FPA1 


70CD CI 


01070 




POP 


BC 




70CE D1 


01080 




POP 


DE 


|RCVR B/2A 


70CF CD 1307 


01090 




CALL 


0713H 


|B/2A-SQRT(B*B-4AC)/2A 


70D2 CD 1271 


01100 




CALL 


ANSWER 




70D5 C33170 


01110 
01120 


9 


JP 


START 


1 RECYCLE 




01130 


9 


ANSWER 


IS IMAGINARY - 


OUTPUTS 




01140 


I 


-B/2A H 


h/- SQRT(ABS(B*B 


-4AC))I/2A 



B-5 



70D8 
70DB 
7 ODE 
70E1 
70E4 
70E7 
70EA 
70ED 
70F0 
70F3 
70F6 



CD0971 
216771 
CD3C71 
218971 
CDB109 
CD7709 
CD 0971 
216E71 
CD3C71 
CD4571 
C33170 



70F9 217D71 
70FC CDB109 
217471 
CDC209 
CD4708 
C9 



70FF 
7102 
7105 
7108 



7109 
71 OC 
710F 
7112 
7115 



7118 
711B 
71 IE 

7121 
7124 
7126 
7129 
712A 
712B 



712E 
712F 
7130 
7132 
7133 
7135 



CDBDOF 
213041 
C33C71 
CD 0971 
C34571 



326371 

215171 

CD3C71 

213041 

0614 

CD4000 

AF 

BO 

CA2D40 



EB 

68 

2600 

19 

3600 

EB 



7136 CD650E 
7139 C3B10A 



01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
,01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 



IMGNRY 



9 

I 

TWOA 



* 

CVRT 
ANSWER 

9 
I 

GETNUM 



.&#%*# 

p 



9 



9 

I 
9 



CALL 

LD 

CALL 

LD 

CALL 

CALL 

CALL 

LD 

CALL 

CALL 

JP 



CVRT 

HL,PMMSG 

MSGOUT 

HL.TEMP 

09B1H 

0977H 

CVRT 

HL.MSGI 

MSGOUT 

WRRET 

START 



I OUTPUT B/2A 



*TEMP ? TO FPA1 

TAKE ABS TO ENSURE POS 

OUTPUT SQRT(B*B-4AC)/2A 



I RECYCLE 



ROUTINE TO MULTIPLY ? A* BY 2,0 



LD 

CALL 

LD 

CALL 

CALL 

RET 



HL.VALA 

09B1H 

HL.TWO 

09C2H 

0847H 



j'A' TO FPA1 

;»2« TO RFPA 
;2 * A 



CONVERT FPA1 TO ASCI ! AND OUTPUT TO SCREEN 



CALL 

LD 

JP 

CALL 

JP 



OFBDH 

HL,4130H 

MSGOUT 

CVRT 

WRRET 



CVRT FPA1 TO ASCI I 
POINT TO ASCBUF 
OUTPUT & RETURN 



ROUTINE TO INPUT COEFFICIENT 



LD 

LD 

CALL 

LD 

LD 

CALL 

XOR 

OR 

JP 



(MSGVAR),A 

HL.MSG1 

MSGOUT 

HL.4130H 

B,20 

0040H 

A 

B 

Z.402DH 



;L0AD COEFF CHAR INTO MSG 

OUTPUT MSG 
PT TO INPUT BUFFER 
SET BUF SIZE 
INPUT USER NUMBER 

jTEST FOR NO INPUT 
I BACK TO DOS 



ASCII BUFFER NEEDS ENDING ZERO BYTE 



EX 

LD 

LD 

ADD 

LD 

EX 



DE.HL 

L,B 

H,0 

HL,DE 

(HL),0 

DE,HL 



I INSERT ENDING ZERO 
I BYTE COUNT TO BC 

PT TO <ENTER> BYTE 
PLACE A <0> INTO BUF 
RESTORE BUF PTR 



CONVERT ASCI I INPUT TO BINARY SNGL PREC 



CALL 
JP 



0E65H 
0AB1H 



I CVRT TO BINARY 

I ENSURE SNGL PREC & RETURN 



B-6 



713C 
713D 
713E 
713F 
7142 
7143 



7145 
7147 
7149 
714B 
714C 
714F 
7150 



7151 



7163 

7166 
7167 

716D 
716E 



7E 

B7 

C8 

CD4B71 

23 

18F7 



3E0D 

1802 

3E20 

D5 

CD3300 

D1 



54 
46 



3E 



45 
49 



7171 
7172 
7174 
7176 
7178 
717A 
0001 
0004 
0004 
0004 
0004 
7000 
00000 



C9 



45 

4E 

46 

20 

58 

20 

00 

20 

20 2B 2F 

00 

20 

20 

00 

0000 

0000 

0082 

0000 

0083 



01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
52 20 
43 49 



I MESSAGE OUTPUT ROUTINE 



49 



MSGOUT LD 
OR 



RET 
CALL 
INC 
JR 



A,(HL) 

A 

Z 

WRBYT 

HL 

MSGOUT 



;P/U A CHARACTER 

I RETURN IF CHAR IS ZERO 
I ELSE OUTPUT IT 
I BUMP POINTER 
;AND LOOP 



t 


* 

WRRET 

WRSPA 
WRBYT 



MISCELLANEOUS OUTPUT ROUTINES 

iWRITE AN <ENTER> 



LD 

JR 

LD 

PUSH 

CALL 

POP 

RET 



A.ODH 

WRBYT 

A,20H 

DE 

33H 

DE 



iWRITE A <SPACE> 
;WRITE ANY CHARACTER 



I 

MSG1 

43 4F 45 

45 4E 54 



BEGINNING OF DATA AREA 

DEFM ? ENTER COEFFICIENT » 



01930 MSGVAR DEFM 



01940 
01950 
2D 20 
01960 
01970 



TOTAL 



01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
ERRORS 



PMMSG 



MSG 



ZERO 

TWO 

FOUR 

FLAG 
VALA 
VALB 
VALC 

TEMP 



NOP 
DEFM 

NOP 
DEFM 

NOP 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFS 

DEFS 

DEFS 

DEFS 

DEFS 

END 



»X > ? 



+/- 



|, 







8200H 



8300H 

1 

4 

4 

4 

4 

BEGIN 



|FLTG POINT ZERO 
;FLTG POINT 2.0 

|FLTG POINT 4o0 

IREAL/IMGNRY FLAG 

I SPACE FOR COEFFICIENTS 



;TEMPY STORAGE 



B-7 



7000 

7000 310070 
7003 CDC901 
7006 CD5070 



7009 
700C 
7 OOF 
7012 
7014 
7017 
7018 
7019 



217170 

CD5C70 

213041 

0614 

CD4000 

AF 

BO 

CA2D40 



701C EB 
701D 68 
701 E 2600 

7020 19 

7021 3600 
7023 EB 



7024 CD650E 



7027 CDB10A 



702A 
702C 
702F 
7032 
7033 
7036 
7039 



0600 

218470 

CDCB09 

C5 

218470 

CDB109 

CDEFOA 



703C CDC914 



703F CDBDOF 



00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 



9 



9 
I 
9 

BEGIN 

9 

I 

START 









LOOP 



• $•■&•&•& ■& 



9 



■^■^•■Jf ■&•& 



###*# 



RANDOM NUMBER GENERATOR TEST 

ILLUSTRATES USE OF ASCII CONVERSIONS 
AND RANDOM NUMBER INTERFACING 



ORG 7000H 
LD SP,$ 
CALL 1C9H 

CALL I N IT 

PROMPT INPUT OF LIMIT 



LD 

CALL 

LD 

LD 

CALL 

XOR 

OR 

JP 



HL,MSG 

MSGOUT 

HL ? 4130H 

B,20 

40H 

A 

B 

Z.402DH 



I SET STACK POINTER 
iCLEAR THE SCREEN 
I SETUP DIVIDE PROG 



I POINT TO INPUT BUFFER 

lOUTPUT MESSAGE 

I POINT TO INPUT BUFFER 

? SET BUFFER SIZE 

; INPUT LIMIT 

I TEST FOR NO INPUT 



I EX IT (TO 6CCH FOR BASIC) 
END OF INPUT MUST BE HEX 00 



EX 

LD 

LD 

ADD 

LD 

EX 



DE ? HL 

L j,B 

H,0 

HL.DE 

(HL),0 

DE^HL 



jBUFFER ADDRESS TO DE 
|BYTE COUNT TO HL 

;PT TO <ENTER> BYTE 

I PL ACE A ZERO INTO PLACE 

jREPOINT HL TO BUFFER 



CONVERT ASCII NUMBER TO DOUBLE PRECISION 
CALL 0E65H ;CVRT TO BINARY 

EXERCISE f CSNG f FUNCTION 
CALL 0AB1H |CVRT TO SNGL 

NOW GENERATE 256 RANDOM NUMBERS 

I IN IT COUNTER 



LD 

LD 

CALL 

PUSH 

LD 

CALL 

CALL 



B,0 

HL, 

9CBH 

BC 

HL* 

9B1H 

OAEFH 



|SAVE FPA1 IN ! 

I SAVE COUNTER 

;LOAD LIMIT 

;INTO FPA1 EACH ITERATION 

I SET TYPFLG TO 4 



GEN SNGL PREC RANDOM NUMBER IN FPA1 

CALL 14C9H -GEN RANDOM NUMBER 

CONVERT FPA1 TO ASCI I 

CALL OFBDH |CVRT TO ASCI I 



B-8 





00660 


****** 

9 










00670 


9 


OUTPUT TO CRT DEVICE 






00680 


. ***** 
9 








7042 213041 


00690 




LD 


HL*4130H 


iPOINT TO BUFFER 


7045 CD5C70 


00700 




CALL 


MSGOUT 


; OUTPUT TO CRT 


7048 CD 6970 


00710 




CALL 


WRSPA 


;& A <SPACE> 


704B C1 


00720 




POP 


BC 


; RECOVER COUNTER 


704C 10E4 


00730 
00740 


****** 
9 


DJNZ 


LOOP 


j CYCLE IF MORE 




00750 


9 


CYCLE 


FOR ANOTHER NUMBER 




00760 


****** 
9 








704E 18B9 


00770 
00780 


****** 
9 


JR 


START 






00790 


9 


RAM INITIALIZATION ROUTINE 




00800 


o***** 
9 








7050 118040 


00810 


INIT 


LD 


DE.4080H 




7053 21F718 


00820 




LD 


HLJ8F7H 




7056 012700 


00830 




LD 


BC ? 27H 




7059 EDBO 


00840 




LDIR 






705B C9 


00850 
00860 


****** 

9 


RET 








00870 


e 
9 


1 MESSAGE OUTPUT ROUTINE 




00880 


****** 

9 








705C 7E 


00890 


MSGOUT 


LD 


A*(HL) 


fP/U CHARACTER 


705D B7 


00900 




OR 


A 


iTEST FOR ZERO 


705E C8 


00910 




RET 


Z 


|RET IF SO 


705F CD6B70 


00920 




CALL 


WRBYT 


lELSE OUTPUT IT 


7062 23 


00930 




INC 


HL 


|BUMP POINTER 


7063 18F7 


00940 
00950 


****** 

9 


JR 


MSGOUT 


jAND LOOP 




00960 


9 


MISCELLANEOUS OUTPUT 


ROUTINES 




00970 


****** 
9 








7065 3E0D 


00980 


WRRET 


LD 


A*0DH 


iWRITE AN <ENTER> 


7067 1802 


00990 




JR 


WRBYT 




7069 3E20 


01000 


WRSPA 


LD 


A.20H 


fWRITE A <SPACE> 


706B D5 


01010 


WRBYT 


PUSH 


DE 


1 WRITE ANY CHARACTER 


706C CD3300 


01020 




CALL 


33H 




706F D1 


01030 




POP 


DE 




7070 C9 


01040 
01050 


****** 

9 


RET 








01060 


9 

9 


DATA 


AREA 






01070 


****** 
9 








7071 45 


01080 


MSG 


DEFM 


'ENTER UPPER 


LIMIT 1 


4E 54 45 52 20 


55 50 50 






45 52 20 4C 49 


4D 49 54 






7082 OD 


01090 




DEFB 


ODH 




7083 00 


01100 




NOP 






0004 


01110 


NUM 


DEFS 


4 




7000 


01120 




END 


BEGIN 




00000 TOTAL 


ERRORS 











B-9 



APPENDIX C: BASIC DISASSEMBLER 



The listing which follows is a BASIC language, Z-80 
disassembler « It can be used to complete the ROM listing 
provided in Chapter 4 by those readers who own a TRS-80 
microcomputer but do not own a machine language 
disassembler. Entry of the starting and ending addresses is 
in decimal* 



1 CLEAR 250 

10 DEFINT A-Z 

15 HEX$=" 0123 4567 89ABCDEF" 

20 CLSs 

PRINT CHR$ (23) : 
PRINT STRING$(27 f "*") 

21 PRINT " DISASSEMBLER BY MISOSYS *" : 
PRINT STRING $ (27 p "*") : 
PRINT"READING DATABASE . .. . " 

50 DIM SIZE%(255) r ED%(56) ,ED$(56) r OPTBL$(255) , 
CODE$(15) ? ARG$(7) ,CBTBL$(10) , 
DDFD%(3 8) ,DDFD$(38) F DF(38) 
100 FOR 1=0 TO 63s 

READ SIZE% (I) : 
NEXTI: 

REM LENGTH TABLE 
110 DATA l r 3 f l,l f l,l f 2,l f l f l f l,l,l r l,2 f l: 

REM 00 - OF 
1 2, U DA I A Zfjplfl;Ifly/yly^flfI?lfifipi?iS 
REM 10 - IF 

REM 20 - 2F 

X ft U L)i\ x /\ ZpJfJflflflfZfl^Zflpjfilyifl^Zfla 

REM 30 - 3F 
150 FOR 1=64 TO 191: 

NEXT: 

REM 40 - BF 
160 FOR 1=192 TO 255: 
READ SIZE% (I) s 
NEXT: 
REM READ REMAINDER 

X / U L)t\ X £\ IflpJ^JfJfljrZpljlfijiJf^yJfJfZflo 

REM CO - CF 

lull L)l\ X i\ l;lfJ;ZfJjrlfZflflflfJpZpJf'ifZflo 

REM DO - DF 

1"U U£\ x/\ lplpj^lfjflyZflyl(ilpjflyjf4y fJL: 

REM E0 - EF 



C-l 



200 DATA 1,1,3,1,3,1,2,1,1,1,3,1,3,4,2,1: 

REM F0 - FF 
300 FOR 1=1 TO 56: 

READ ED%(I) ,ED$(I) : 
NEXT: 

REM READ ED TABLES 
310 DATA 64, "IN B f (C) ", 65 , "OUT (C) ,B" , 66 , "SBC HL,BC" 
320 DATA 67,BC,68,NEG,69,RETN,70,IM 0,71, 

"LD I, A", 72, "IN C, (C)" 
330 DATA 73,"OUT (C) f C", 74 , "ADC HL,BC",75, 

BC,77,RETI,79,"LD R,A" 
340 DATA 80, "IN D f (C) " , 81 /'OUT (C) f D",82 f 

"SBC HL,DE",83,DE 
350 DATA 86, IM 1,87,"LD A, I", 88, "IN E,(C)",89, 

"OUT (C),E" 
360 DATA 90, "ADC HL,DE" , 91 ,DE, 94 , IM 2,95, 

"LD A, R", 96, "IN H, (C) " 
370 DATA 97, "OUT (C) ,H" , 98 , "SBC HL, HL" , 103 ,RRD, 

104, "IN L, (C)" 
380 DATA 105,"OUT (C) ,L" , 106 , "ADC HL,HL" 
385 DATA 111 ,RLD, 114 , "SBC HL,SP" 
390 DATA 115, SP, 120, "IN A, (C) " , 121 , "OUT (C),A", 

122, "ADC HL,SP" 
400 DATA 123,SP,160,LDI,161,CPI,162,INI,163, 

OUTI,16 8,LDD 
410 DATA 169,CPD,170,IND,171,OUTD,176,LDIR, 

177,CPIR,178,INIR 
420 DATA 17 9,OTIR,184,LDDR,185,CPDR,186,INDR,187,OTDR 
430 FOR 1=0 TO 15s 

READ CODE $ (I) : 
NEXT 
44 DATA "LD B,","LD C,","LD D,","LD E," 
450 DATA "LD H,","LD L,","LD (HL),","LD A," 
46 DATA "ADD A,", "ADC A", "SUB ","SBC A," 
470 DATA "AND " , "XOR ","OR ","CP " 
480 FOR 1=0 TO 1% 

READ ARG$ (I) : 
NEXT 
490 DATA B,C,D,E,H,L, (HL) ,A 
500 FOR 1=0 TO 127: 

READ OPTBL$ (I) : 
NEXT: 

REM READ PARTIAL OPS 
510 DATA NOP,"LD BC,","LD (BC),A",INC BC 
520 DATA INC B,DEC B, "LD B,",RLCA 

530 DATA "EX AF,AF'","ADD HL,BC","LD A,(BC)",DEC BC 
540 DATA INC C,DEC C, "LD C,",RRCA 
550 DATA "DJNZ,","LD DE,","LD (DE),A",INC DE 
560 DATA INC D,DEC D,"LD D,",RLA 
570 DATA JR , "ADD HL,DE","LD A,(DE)",DEC DE 
580 DATA INC E,DEC E,"LD E,",RRA 



C-2 



590 DATA "JR NZ,","LD HL,","",INC HL 

600 DATA INC H,DEC H,"LD H,",DAA 

610 DATA "JR Z,","ADD HL,HL","LD HL,",DEC HL 

620 DATA INC L.DEC L,"LD L,",CPL 

63 DATA "JR NC,","LD SP,","",INC SP 

640 DATA INC (HL) ,DEC (HL),"LD (HL),",SCF 

650 DATA "JR C,","ADD HL,SP","LD A,", DEC SP 

660 DATA INC A, DEC A, "LD A,",CCF 

670 DATA RET NZ , POP BC/'JP NZ,","JP " 

680 DATA "CALL NZ , ", PUSH BC,"ADD A,", RST 00H 

690 DATA RET Z,RET,"JP Z, B , B " 

700 DATA "CALL Z , " , CALL , "ADC A,", RST 8H 

710 DATA RET NC,POP DE,"JP NC,","OUT N, " 

720 DATA "CALL NC,",PUSH DE,SUB , RST 10H 

730 DATA RET C,EXX,"JP C,","IN A/ 1 

740 DATA "CALL C,","'\"SBC A,", RST 18H 

750 DATA RET PO,POP HL,"JP PO,'\"EX (SP),HL" 

760 DATA "CALL PO," r PUSH HL,AND , RST 20H 

770 DATA RET PE,JP (HL) , " JP PE,","EX DE,HL" 

780 DATA "CALL PE,","",XOR , RST 28H 

790 DATA RET P,POP AF,"JP P,",DI 

800 DATA "CALL P,",PUSH AF,OR , RST 30H 

810 DATA RET M, "LD SP,HL","JP M,",EI 

820 DATA "CALL M,","",CP , RST 38H 

830 FOR 1=0 TO 10? 

READ CBTBL$(I) : 

NEXT: 

REM READ CB OP TABLE 

840 DATA RLC,RRC,RL,RR,SLA,SRA,XXX,SRL,BIT,"RES","SET" 
850 FORI=0 TO 38: 

READ DDFD%(I) ,DDFD$ (I) : 

NEXT: 

REM READ DD & FD TABLES 
860 DATA 9, "ADD X f BC n f 25 , "ADD X,DE",33,"X" 
870 DATA 34, X, 35, "INC X", 41, "ADD X,X",42,X 
880 DATA 43, DEC X, 52, INC (X + ),53,DEC (X + ) f 54, "LD (X + ) ," 
890 DATA 57, "ADD X,SP",70,"LD B, (X+) " , 78 , "LD C, (X+) 
900 DATA 86, "LD D, (X+) " , 94 , "LD E, (X+) ",102 , "LD H,(X+)" 
910 DATA 110, "LD L, (X + ) ",112, "LD (X + ) ,B" , 113 , "LD (X + ) ,C 
920 DATA 114, "LD (X + ) ,D" , 115 , "LD (X + ) ,E" , 116 , "LD <X + ) ,H' 
930 DATA 117, "LD (X+) ,L" , 119 , "LD (X + ) ,A" , 126 , 

"LD A, (X+) ",134, "ADD A, (X+) " 
940 DATA 142, "ADC A, (X+) ",150, "SUB (X+)",158, 

"SBC A, <X + ) " 
950 DATA 16 6, "AND (X + ) " , 174 , "XOR (X + ) " , 182 , "OR (X + ) " 
960 DATA 190, "CP (X+) " , 225 ,POP X, 227 , "EX (SP) ,X 
970 DATA 229, PUSH X,233,JP (X),249,"LD SP,X" 
980 FOR 1=0 TO 38s 
READ DF(I) : 

NEXT: 

REM READ ED/FD "LENGTH" TABLE 
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-/ -s U U'.ra. X £\ l^l^j^j^l^l|rj ^XfZfZ^ZfXfZ f Z f Z f Z f Z f Z f 

Z ff Z $ Z f Z <g Z $ Z f Z f Z fZfZfZfZ Z p Z f Z g> Z X. p JL $ X f 1 ^ JL 

2000 INPUT "ENTER STARTING ADDRESS" ;LO 

2001 INPUT "ENTER ENDING ADDRESS" ;HI 
2005 PC=LOs 

CLS 
2010 BYTE=PEEK(PC) s 

GOSUB 12000s 

D=0s 

REM INITIALIZE DISPLACEMENT 
2020 N=SIZE%(BYTE) : 

ON N GOTO 2030,2040,2050,2060 
2030 GQTO2100? 

REM BRANCH FOR STATEMENTS OF LENGTH 1 
2040 GOTO2500s 

REM BRANCH FOR STATEMENTS OF LENGTH 2 
2050 GOTO2600s 

REM BRANCH FOR STATEMENTS OF LENGTH 3 
2060 GOTO2900s 

REM BRANCH FOR LENGTH CODE OF 4 
2100 GOSUB 11000 

2120 IF BYTE>63 AND BYTE<192 THEN 2200 
2130 X=BYTEs 

IF X>191 THEN X=X-128 
2140 PRINT TAB (16) OPTBL$(X); 
2150 GOSUB 10000 
2160 GOTO5000 
2200 X=INT ( (BYTE-64) /8) 
2210 IF BYTE <> 118 THEN 2230 
2220 PRINT TAB (16) "HALT";: 

GOSUB10000? 

GOTO5000 
2230 PRINT TAB (16) CQDE$(X),° 
2240 R=BYTE AND 7 
2250 PRINT ARG$(R) ; 
2260 GOSUB 10000s 

GOTO5000 
2500 IF BYTE=211 THEN 2560 
2510 GOSUB 11000 
2520 X=BYTEi 

IF X>191 X=X-128 
2530 PRINT TAB (16) OPTBL$(X); 
2540 N2=PEEK(PC+1) : 

GOSUB12030: 

PRINT "H"; 
2545 N1=BYTE AND 199s 

IF N1=0 THEN D=N2 
2550 GOSUBlOOOOs 

GOTO5000 
2560 GOSUBllOOOs 

PRINT TAB (16) "UT " ; 
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2570 Y=PCs 

X=Ns 

N=l: 

GOSUBllQOQs 

N=Xs 

PC=Yi 

PRINT"H f A"; 
2580 GOSUB 10000: 

GOTO5000 
2600 GOSUB 11000 
2610 IF BYTE=34 THEN 2710 
2620 IF BYTE=50 THEN 2810 
2630 X=BYTE: 

IF X>191 X=X~128 
2635 PRINT TAB (16) OPTBL$(X)|i 

IFX=42 OR X=58 THEN PRINT" ("; 
2640 Z=N: 

Y=PCi 

N=2s 

PC=PC+ls 

GQSUB11090? 

N=Z: 

PC=Ys 

IF X=42 OR X=58 THEN PRINT n H) n ; 

ELSE PRINT"H"; 
2660 GOSUBlOOOOi 

GOTO5000 
2710 PRINT TAB(16) !I LD ('" ; 
2720 X=N: 

Y=PC: 

N=2: 

PC=PC+1: 

GOSUB11090: 

PC=YiN=X 
2730 PRINT "H) f HL n ;: 

GOSUB10000? 

GOTO5000 
2810 PRINT TAB(16)"LD ( n ; 
2820 X=Ns 

Y=PCs 

PC=PC+ls 

N=2: 

GOSUB11090? 

PC=Y? 

N=X 
283 PRINT n H) ,A"; : 

GOSUBlOOOOi 

GOTO5000 
2890 GOSUB11000: 

GOSUB10000: 

GOTO5000 
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2900 IF BYTEO203 THEN 3000 
2910 NB=PEEK(PC+1) : 

REM DISASSEMBLE ' CB f INSTRUCTIONS 
2920 X=INT(NB/8)s 

IF X>7 THEN X = INT(X/8)+7 
2930 N=2s 

REM RESET LENGTH TO 2 
2940 GOSUBllOOOs 

REM PRINT INSTRUCTION IN HEX 
2950 PRINT TAB (16) CBTBL$(X)?" " ; : 

REM RECOVER OP 
2970 IF X<8 THEN 2990 

ELSE X=INT((NB-64)/8) 

2975 IF X<8 THEN 2980 

2976 X=X»8: 
GOT0297 5 

2980 PRINTX;",";: 

REM PRINT THE BIT 
2990 Y=NB AND 7: 

PRINT ARG$(Y) ;: 

GOSUB 10000s 

GOTO5000 
3000 REM ***** THIS SECTION DECODES 8 ED f INSTRUCTIONS 
3010 IF BYTE0237 THEN 3200? 

REM 237(10)=ED(16) 
3020 NB=PEEK(PC-i-l) : 

FOR 1=1 TO 56 i 

IF NB=ED%(I) THEN3040 

ELSE NEXT 
3030 N=l: 

GOSUB11000; 

GOSUB 10000s 

GOTO5000? 

REM INVALID CODE, PRINT ASCII 
3040 NX=Ij 

IF NB=67 OR NB=83 OR NB=115 THEN 3 07 
3050 IF NB=75 OR NB=91 OR NB=123 THEN 3100 
3060 N=2: 

GOSUBllOOOs 

PRINT TAB (16) ED$(NX);: 

GOSUB 10000s 

GOTO5000 
3070 N=4s 

GOSUB11000: 

PRINT TAB (16) ,! LD ("; 
3080 Y=PCs 

PC-PC+2? 

N=2s 

GOSUB11000? 

N=4s 

PC=Ys 
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PRINT"H) ,"?ED$(NX) ; 
3090 GOSUBlOOOOs 

GOTO5000 
3100 N=4s 

GOSUBllOOOs 

PRINT TAB(16)"LD " ?ED$ (NX) ; " , ( " ; 
3110 Y=PCs 

PC=PC+2s 

N=2: 

GOSUBllOOOs 

N=4 s 

PC=Ys 

PRINT "H) "s 
3120 GOSUBlOOOOs 

GOTO5000 
3200 REM ***** THIS SECTION DECODES ' Dd ' & "FD 1 

INSTRUCTIONS ***** 
3210 NB=PEEK(PC+1) : 

IF NB=203 THEN 3400s 

REM CHECK FOR BYTE 2=CB 
3220 FOR X=0 TO 38s 

IF NB=DDFD%(X) THEN 3240 

ELSE NEXT 
3230 N=ls 

GOSUBllOOOs 

GOSUBlOOOOs 

GOTO5000; 

REM INVALID OP CODE 
3240 P$=DDFD$(X) : 

Q$=""s 

FOR 1=1 TO LEN(P$) : 

IF MID$(P$ r I f DO"X !8 OR NB=174 OR NB=227 THEN 

Q$=Q$+MID$(P$,I,1) 
ELSE IF BYTE=221 THEN Q$=Q$+"IX" 
ELSE Q$=Q$+"IY" 
3250 NEXTs 

REM Q$ NOW CONTAINS PARTIAL INST FOR IX/IY 
3260 ON DF(X) GOTO 3270,3280,3340 
3270 N=2: 

GOSUBllOOOs 

PRINT TAB (16) Q$;: 

GOSUBlOOOOs 

GOTO5000 
3280 N=3s 

IF NB=54 THEN N=4 
3290 GOSUBllOOOs 

P$=Q$s 

Q$=""s 

FOR I=lTOLEN(P$) : 

IF MID$(P$ f I f lX> ,, + n THEN Q$=Q$+MID$ (P$ , 1 , 1) 
ELSE 3310 
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3300 NEXT: 

STOP 
3310 PRINT TAB (16) Q$;"+";s 

N2=PEEK(PC+2) s 

D=N2s 

GOSUBl2030s 



PRINT "H 



/ • 



PRINT RIGHT$ (P$ ,LEN (P$) -I) I : 

IF NB<>54 THEN 3330 
3320 N2=PEEK(PC+3) : 

GOSUB12030: 

PRINT"H"? 
3330 GOSUBlOOOOs 

GOTO5000 
3340 IF NB=33 THEN 3350 
3342 IF NB=34 THEN 3360 
3344 IF NB=42 THEN 3370 

ELSE 3030 
3350 N=4: 

GOSUBllOOOs 

PRINT TAB(16) B? LD " ;Q$; 
3355 PRINT " , "; : 

Y=PCs 

N=2s 

PC=PC+2s 

GOSUBllOOOs 

PRINT"H"|i 

PC=Yi 

N=4: 

GOSUB10000: 

GOTO5000 
3360 N=4: 

GOSUBllOOOi 

PRINT TAB (16) "LD (";: 

Y=PCs 

PC=PC+2s 

N=2s 

GOSUBllOOOs 

print"h) , n ;Q$; 

3365 PC=Ys 

N=4s 

GOSUBlOOOOs 

GOTO5000 
3370 N=4s 

GOSUBllOOOs 

PRINT TAB (16) "LD " ?Q$ ? " , ( " ; 

Y=PCs 

PC=PC+2s 

N=2s 

GOSUBllOOOs 

PRINT"H) ";: 
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N=4s 

PC=Ys 

GOSUBlOOOOs 

GOTO5000 
3400 N=4: 

NB=PEEK(PC+3) % 

BIT=INT((NB AND 56) /8): 

X=INT((NB AND 192) /64): 

IF X=0 THEN X=BIT 

ELSE X=X+7s 

REM X NOW INDEXES CBTBL$ 
3410 GOSUB 11000: 

PRINT TAB (16) CBTBL$(X)?" " 

IF X>7 PRINT BIT;"/ 1 ? 
3420 IF BYTE = 221 PRINT " (IX+"; 

ELSE PRINT" IY+"; 
3430 N2=PEEK(PC+2) s 

D=N2s 

GOSUB12030 

PRINT "H) " ; 

GOSUB10000 

GOTO5000 
5000 IF D=0 THEN 5005 

ELSE GOSUB 13000 

5005 L=L+1: 

IFL<16 THEN 5010 

ELSE INPUT 11 . . *WAITING"?Z$s 

CLS 

5006 LO=LO+Ls 
L=0 

5010 PRINT" " : 

PC=PC+Ns 

IF PC<HI+1 THEN 5020 

ELSE PRINT LO/'LINES OUTPUT"? 

END 
5020 IF BYTEO207 THEN 2010 
5030 BYTE=PEEK(PC) : 

D=0s 

N=l: 

GOSUB12000? 

GOSUB11000: 

PRINT TAB(16)"DEFB " ; 
5040 IF BYTE<32 OR BYTE >127 THEN 5050 

ELSE PRINT " ,n ;CHR$(BYTE) ; " ! "?s 

GOSUBlOOOOi 

GOTO5005 
50 50 N2=BYTE: 

GOSUB 12030i 

PR INT "H"; s 

GOSUB10000: 

GOTO5005 
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10000 FOR 1=0 TO N-l 

10020 IF Q>32 AND Q<128 THEN PRINT TAB ( 32+1) CHR$ (Q) ; 

ELSE PRINT TAB (32 + 1) " . " ; 
10030 NEXT I 
10040 RETURN 
10090 Q=PEEK(PC+I) 
11000 FOR 1=0 TO N-l: 
GOSUB11010: 

NEXT I? 

RETURN 
11010 Q=PEEK(PC+I) 
11020 J=INT(Q/16) 
11030 K=Q-J*16 
110 40 J$=MID$(HEX$,J+1,1) 
110 50 K$=MID$(HEX$,K+1,1) 
11060 PRINT J$;K$; : 

RETURN 
11090 FOR 1=1 TO 2-N STEP -1: 
GOSUB 11010: 

NEXTIs 

RETURN 
12000 N2=PC: 

K=VARPTR(N2) t 

N1=PEEK(K+1) : 

N2=N2 AND 255 
12010 J=INT(N1/16) : 

K=N1-J*16 
12020 Q$=MID$(HEX$,J+1,1)+MID$(HEX$,K+1,1) : 

PRINT Q$; 
12030 J=INT(N2/16) : 

K=N2-J*16 
12040 Q$=MID$(HEX$,J+1,1)+MID$(HEX$,K+1,1) : 

PRINT Q$; 
12050 PRINT TAB (7) t 

RETURN 
13 000 REM ***** ROUTINE TO COMPUTE RELATIVE DISPLACEMENTS 
13010 D1=D AND 128s 

IF D1O0 THEN POKE VARPTR (D) +1 ,2 55 
13020 D=D+2 
13030 Y=PCs 

PC=PC+D: 

PRINT TAB (40) " " ; : 

GOSUB 12000: 

PRINT n H";: 

PC=Y: 

RETURN 



C-10 





VOLUME TWO! 



i r 



I 



LS1qI3 IBs H& 






Mil 



Hill 






Insiders Software Consultants, Inc 
P.O. Box 2441 , Dept. SUM 1 
Springfield, VA 22152 

□ Please send me Volume llof THE B00K 
at $1 4.95 plus $1 .50 for postage. 



*TRS-80 is a trademark of 
Tandy Corp. 



NAME: 



ADDRESS: 



CITY, STATE: 



ZIP: 



□ Check payable to Insiders Software Consultants, Inc. 

□ MASTER CHARGE MC Bank Code. 

□ VISA Exp. Date Card Number 



Signature: 



expires december 31,1981 




$14.95 




INSIDERS SOFTWARE CONSULTANTS 

P.O. BOX 2441, 
SPRINGFIELD, VA 22152 



